urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-11-28 13:54:20 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'master' of github.com:urbit/urbit

Browse Source
This commit is contained in:
C. Guy Yarvin 2013-10-10 10:59:04 -07:00
commit 77dc70a764
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
arvo/ames.hoon
View File

@ -1565,7 +1565,7 @@
== ==
:: ::
%ye :: %ye %ye :: %ye
~& [%ye bon] :: ~& [%ye bon]
?> =(p.p.bon (sein q.p.bon)) ?> =(p.p.bon (sein q.p.bon))
=+ ^= paz ^- (list ,@p) =+ ^= paz ^- (list ,@p)
%+ skim pals:(~(um am [now fox]) p.p.bon) %+ skim pals:(~(um am [now fox]) p.p.bon)
@ -1578,7 +1578,7 @@
[%want him /q/yu [q.p.bon r.bon]] [%want him /q/yu [q.p.bon r.bon]]
:: ::
%yu :: %yu %yu :: %yu
~& [%yu bon] :: ~& [%yu bon]
?. =(q.p.bon (sein p.p.bon)) [~ fox] ?. =(q.p.bon (sein p.p.bon)) [~ fox]
=+ dof=((hard ,[p=@p q=@t]) r.bon) =+ dof=((hard ,[p=@p q=@t]) r.bon)
$(bon [%milk [p.p.bon p.dof] q.bon(q /q/hi) q.dof]) $(bon [%milk [p.p.bon p.dof] q.bon(q /q/hi) q.dof])