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

pokes over %ames now get acks

Browse Source
This commit is contained in:
Ubuntu 2014-08-29 17:05:00 +00:00
parent 9b04cf46dd
commit d89c0ff9f0
1 changed files with 21 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
arvo/gall.hoon
View File

@ -332,22 +332,28 @@
++ gasp :: %x take ++ gasp :: %x take
|= [hen=duct pax=path sih=sign] |= [hen=duct pax=path sih=sign]
^- [(list move) _..^$] ^- [(list move) _..^$]
?: ?=(%a -.sih) [~ ..^$] ?+ -.sih !!
?> ?=(%f -.sih) %a
:_ ..^$ ?> ?=(%woot +<.sih)
:_ ~ :_ ..^$ :_ ~
:- hen ?~ q.sih
?- -.p.+.sih [hen %give %nice ~]
%| [hen %give %mean u.q.sih]
[%give %crud %gasp-crud p.p.+.sih] %f
:: :_ ..^$
%& :_ ~
=+ cay=`cage`q.p.p.+.sih :- hen
?+ -.pax !! ?- -.p.+.sih
%d [%give (best %rush cay)] %|
%f [%give (best %rust cay)] [%give %crud %gasp-crud p.p.+.sih]
::
%&
=+ cay=`cage`q.p.p.+.sih
?+ -.pax !!
%d [%give (best %rush cay)]
%f [%give (best %rust cay)]
== ==
== ==
==
:: ::
++ gave :: %r take ++ gave :: %r take
|= [hen=duct pax=path sih=sign] |= [hen=duct pax=path sih=sign]