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

Remove debug code.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-11-30 23:32:19 -08:00
parent 3c55fd2d98
commit 6c151c6f52
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
arvo/hoon.hoon
View File

@ -9523,12 +9523,14 @@
%- zing
^- (list (list tape))
%+ turn
(~(tap by cut.day) ~)
%+ sort (~(tap by cut.day))
|= [one=(pair path hump) two=(pair path hump)]
(gth sap.q.one sap.q.two)
|= [pax=path hup=hump]
;: welp
[(welp "sector: " (spud pax)) ~]
[(welp "label: " (spud pax)) ~]
[(welp "weight: " (scow %ud (div (mul 1.000 sap.hup) sap.day))) ~]
["inn:" ~]
["from:" ~]
::
%+ turn
(~(tap by inn.hup) ~)
@ -9536,13 +9538,15 @@
^- tape
:(welp " " (spud pax) ": " (scow %ud num))
::
["out:" ~]
["into:" ~]
::
%+ turn
(~(tap by out.hup) ~)
|= [pax=path num=@ud]
^- tape
:(welp " " (spud pax) ": " (scow %ud num))
::
~
==
==
--