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

Clean up fixes.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-06-05 20:52:41 -07:00
parent 14301c9beb
commit 9d0d7b39db
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
arvo/batz.hoon
View File

@ -282,7 +282,7 @@
=> .(fog (weld t.fog `(list ,@ud)`[i.fog ~])) => .(fog (weld t.fog `(list ,@ud)`[i.fog ~]))
[[[hen [%give %helo prot]] ~] +<.^^$] [[[hen [%give %helo prot]] ~] +<.^^$]
%noop [~ +<.^^$] %noop [~ +<.^^$]
%wart ~& %lear-wart (lion hen +.kyz) %wart (lion hen +.kyz)
?(%init %limn %make %sith %wake) !! :: handled earlier ?(%init %limn %make %sith %wake) !! :: handled earlier
== ==
:: ::
@ -1272,7 +1272,6 @@
((hard kiss) p.q.hic) ((hard kiss) p.q.hic)
?: (~(nest ut -:!>(*kiss)) | p.hic) q.hic ?: (~(nest ut -:!>(*kiss)) | p.hic) q.hic
~& [%batz-call-flub (,@tas `*`-.q.hic)] ~& [%batz-call-flub (,@tas `*`-.q.hic)]
~& [%batz-call-flub-all q.hic]
((hard kiss) q.hic) ((hard kiss) q.hic)
== ==
^- [p=(list move) q=_..^$] ^- [p=(list move) q=_..^$]
@ -1326,7 +1325,6 @@
?~ big ?~ big
~& [%call-hail-soon hen] ~& [%call-hail-soon hen]
[~ ..^^$] [~ ..^^$]
~& [%batz-call-console hen]
$(dez (~(put by dez) hen [[u.big (bard u.big)] ~])) $(dez (~(put by dez) hen [[u.big (bard u.big)] ~]))
:: ::
%init %init