urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-12 10:29:01 +03:00
Code Issues Packages Projects Releases Wiki Activity

Ready for a cross-generation reset.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-01-05 16:36:29 -08:00
parent 59815373bd
commit 5fa1531701
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
arvo/batz.hoon
View File

@ -1267,10 +1267,10 @@
::
++ flee stay
++ load
|= new=vase
|= old=vase
^- vane
?. (~(nest ut -:!>(dez)) & p.new) (come new)
..^$(dez ((map duct brim) q.new))
?. (~(nest ut -:!>(dez)) & p.old) (come old)
..^$(dez ((map duct brim) q.old))
::
++ raze
^- vane

8
arvo/hoon.hoon
View File

@ -7427,8 +7427,12 @@
=+ gen=(rain hap src)
~& %vega-parsed
=+ ken=.*(0 q:(~(mint ut %noun) %noun gen))
~& %vega-compiled
=+ gat=.*(ken .*(ken [0 86]))
=+ ^= nex
=+ gat=.*(ken .*(ken [0 87]))
(need ((hard (unit ,@)) .*([-.gat [[now ~] +>.gat]] -.gat)))
~& [%vega-compiled stub nex]
?> (lte nex stub)
=+ gat=.*(ken .*(ken [0 ?:(=(nex stub) 86 11)]))
=+ sam=[eny ova fan]
=+ raw=.*([-.gat [sam +>.gat]] -.gat)
[((list ovum) -.raw) +.raw]