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

More profiling updates.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-12-02 16:26:30 -08:00
parent 5fb9cd9ae9
commit b988d4b061
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
arvo/hoon.hoon
View File

@ -9572,11 +9572,11 @@
|= [one=(pair path hump) two=(pair path hump)] |= [one=(pair path hump) two=(pair path hump)]
(gth (pi-moth mon.q.one) (pi-moth mon.q.two)) (gth (pi-moth mon.q.one) (pi-moth mon.q.two))
|= [pax=path hup=hump] |= [pax=path hup=hump]
=+ ott=(pi-moth mon.day) =+ ott=(pi-moth mon.hup)
;: welp ;: welp
[(welp "label: " (spud pax)) ~] [(welp "label: " (spud pax)) ~]
[(welp "price: " (scow %ud (div (mul 100 ott) tot))) ~] [(welp "price: " (scow %ud (div (mul 100 ott) tot))) ~]
[(welp "shape: " (pi-mumm mon.day)) ~] [(welp "shape: " (pi-mumm mon.hup)) ~]
:: ::
?: =(~ inn.hup) ~ ?: =(~ inn.hup) ~
:- "from:" :- "from:"
@ -9594,6 +9594,7 @@
^- tape ^- tape
:(welp " " (spud pax) ": " (scow %ud num)) :(welp " " (spud pax) ": " (scow %ud num))
:: ::
["" ~]
~ ~
== ==
== ==