clay-reset.

This commit is contained in:
C. Guy Yarvin 2014-04-17 09:37:22 -07:00
parent b3a5c41491
commit a5c6c134ee
2 changed files with 6 additions and 4 deletions

View File

@ -477,7 +477,9 @@
++ load
|= new=vase
^- vane
?. (~(nest ut -:!>(ruf)) & p.new) ~|(%load-type-fail !!)
?. (~(nest ut -:!>(ruf)) & p.new)
~& %clay-reset
..^$
..^$(ruf (raft q.new))
::
++ raze

View File

@ -1358,12 +1358,12 @@
~
::
++ load
|= new=vase
|= old=vase
^- vane
?. (~(nest ut -:!>(`bolo`+>-.^$)) | p.new)
?. (~(nest ut -:!>(`bolo`+>-.^$)) | p.old)
~& %eyre-reset
..^$
..^$(+>- (bolo q.new))
..^$(+>- (bolo q.old))
::
++ raze
^- vane