urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-13 16:03:36 +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
|= [hen=duct pax=path sih=sign]
^- [(list move) _..^$]
?: ?=(%a -.sih) [~ ..^$]
?> ?=(%f -.sih)
:_ ..^$
:_ ~
:- hen
?- -.p.+.sih
%|
[%give %crud %gasp-crud p.p.+.sih]
::
%&
=+ cay=`cage`q.p.p.+.sih
?+ -.pax !!
%d [%give (best %rush cay)]
%f [%give (best %rust cay)]
?+ -.sih !!
%a
?> ?=(%woot +<.sih)
:_ ..^$ :_ ~
?~ q.sih
[hen %give %nice ~]
[hen %give %mean u.q.sih]
%f
:_ ..^$
:_ ~
:- hen
?- -.p.+.sih
%|
[%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
|= [hen=duct pax=path sih=sign]