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

Printf-free.

Browse Source
This commit is contained in:
C. Guy Yarvin 2015-01-20 15:53:44 -08:00
parent b586484f88
commit 4715d43552
3 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
arvo/gall.hoon
View File

@ -353,7 +353,7 @@
^- [(list move) _..^^$]
?> ?=(?(%mess %show %nuke %took) -.kon)
?: ?=(%took -.kon)
~& [%gape-took our imp hen]
:: ~& [%gape-took our imp hen]
[~ ..^^$]
=+ you=`ship`?-(-.kon %mess p.kon, %nuke p.kon, %show p.kon)
=+ mat=(~(got by pol.all) you)
@ -1153,9 +1153,9 @@
=+ qol=(~(get by qel.sat) ost)
:: ~& [%yawn-told-has qol [our hen]]
=+ qul=?~(qol 1 +(u.qol))
:: ?: =(10 qul)
:: ~& [%yawn-told-full our hen]
:: +>.$(qic.sat `[hen %nuke p.kon])
?: =(10 qul)
~& [%yawn-told-full our hen]
+>.$(qic.sat `[hen %nuke p.kon])
+>.$(qic.sat ~, qel.sat (~(put by qel.sat) ost qul))
::
%load

2
main/app/rodeo/core.hook
View File

@ -491,7 +491,7 @@
%| ~& tweet-acquire/p.p.tay
!!
::
%& ~& [%pa-acquire [our.hid man] [p.p.tay q.p.tay]]
%& :: ~& [%pa-acquire [our.hid man] [p.p.tay q.p.tay]]
:~ :- /friend/show/(scot %p p.p.tay)/[man]
[%g %show [p.p.tay /rodeo] our.hid /af/[q.p.tay]/(scot %ud num)]
==

8
main/app/talk/core.hook
View File

@ -288,7 +288,7 @@
:~ %afx
man
?: =(0 count)
~& [%story-init man `@da`(sub lat.hid ~d1)]
:: ~& [%story-init man `@da`(sub lat.hid ~d1)]
(scot %da (sub lat.hid ~d1))
(scot %ud count)
==
@ -403,7 +403,7 @@
++ sy-grams :: apply telegrams
|= [num=@ud gaz=(list telegram)]
^+ +>
~& [%sy-grams [num count] (lent gaz)]
:: ~& [%sy-grams [num count] (lent gaz)]
?: (gth num count)
(sy-message(count 0) "message gap: {<num>} at {<count>}")
=. .
@ -607,7 +607,9 @@
%mean ~&([%pour-mean-cmd-in +>.sih] !!)
%rush
?> ?=(%txt -.p.sih)
(pour-shell p.p.sih)
=^ moz +>.$ (pour-shell p.p.sih)
:_ +>.$
:_(moz [ost %pass pax %g %took [our.hid +.imp.hid] our.hid])
==
::
%cmd-ac