Merge branch 'ford-safe' (#2117)

* origin/ford-safe:
  ford: clear build results on +load

Signed-off-by: Jared Tobin <jared@tlon.io>
This commit is contained in:
Jared Tobin 2019-12-20 13:22:23 -03:30
commit 103e375417
No known key found for this signature in database
GPG Key ID: 0E4647D58F8A69E4
3 changed files with 12 additions and 12 deletions

View File

@ -1,3 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:18d492d912068e7fefef48006105d39c1c8f56aa756b7aeae48387c2254c1b91
size 7153239
oid sha256:407a763f44eb91db0dd4a1ec2dbd12ed4332b48decefd3999c4313844daa2c0b
size 7226043

View File

@ -1,3 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:c5c7e56d73a3cd15c70b4cd3877da03808e4383097b47c7050f30d0160830e1b
size 9645556
oid sha256:802628572edd2f8305dbbb723215fec89f46a9a63f40f4a0421cfb38f0285b0b
size 9646301

View File

@ -6108,6 +6108,7 @@
:: and a namespace function
::
|= [our=ship now=@da eny=@uvJ scry-gate=sley]
=* ford-gate .
:: allow jets to be registered within this core
::
~% %ford ..is ~
@ -6332,12 +6333,16 @@
--
:: +load: migrate old state to new state (called on vane reload)
::
:: Trim builds completely in case a change to our code invalidated an
:: old build result.
::
++ load
|= old=axle
^+ ..^$
^+ ford-gate
::
~! %loading
..^$(ax old)
=. ax old
=. ford-gate +:(call ~[/ford-load-self] *type %trim 0)
ford-gate
:: +stay: produce current state
::
++ stay `axle`ax
@ -6346,9 +6351,4 @@
++ scry
|= *
[~ ~]
:: %utilities
::
::+|
::
++ ford-gate ..$
--