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

Correct lame:wake bug in a rather crude way.

Browse Source
This commit is contained in:
C. Guy Yarvin 2013-11-13 17:48:21 -08:00
parent bb924ab82a
commit 494a66c463
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
arvo/batz.hoon
View File

@ -85,16 +85,20 @@
=+ rew=(flop wer)
=+ vez=(vang | wer)
|%
++ fane :: fane:be
|= [gyp=@ud ted=@ud lap=wire] :: validate waiter
^- ? :: XX hack
=+ dog=(~(get by q.god) gyp)
?~ dog |
=+ gib=(~(get by q.wip.u.dog) ted)
?~ gib |
?. ?=([%ma *] lap) |
(~(has by q.u.gib) t.lap)
::
++ fear :: fear:be
|= tea=wire :: validate wire
^- ? :: XX hack
=+ fat=(feat tea)
=+ dog=(~(get by q.god) p.fat)
?~ dog |
=+ gib=(~(get by q.wip.u.dog) q.fat)
?~ gib |
?. ?=([%ma *] r.fat) |
(~(has by q.u.gib) t.r.fat)
(fane (feat tea))
::
++ feat :: feat:be
|= tea=wire :: decode wire
@ -119,6 +123,7 @@
++ lake :: lake:be
|= [hen=duct gyp=@ud ted=@ud lap=wire] :: deliver wakeup
^- [p=(list move) q=brat]
?. (fane gyp ted lap) [~ +<.^^$]
abet:lash:abet:(glob:(past:(fest gyp hen) ted) lap [%wake ~])
::
++ lead :: lead:be