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

Add grams.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-12-10 15:32:46 -08:00
parent ba03df2dd3
commit cfc0849a4d
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -373,15 +373,12 @@
%ud (lte p.q.riv end)
%da (lte p.q.riv p.r.q.i.gaz)
==
~& %drop-a
$(end (dec end), gaz t.gaz)
?: ?- -.p.riv :: before the start
%ud (lth end p.p.riv)
%da (lth p.r.q.i.gaz p.p.riv)
==
~& %drop-b
[dun end (flop zeg)]
~& %save
$(end (dec end), gaz t.gaz, zeg [i.gaz zeg])
::
++ pa-listen :: subscribe
@ -451,7 +448,11 @@
++ pa-append :: append new
|= gam=telegram
^+ +>
%+ pa-refresh(count +(count), known (~(put by known) p.q.gam count))
%+ %= pa-refresh
grams [gam grams]
count +(count)
known (~(put by known) p.q.gam count)
==
count
gam
::