More profiling updates.

This commit is contained in:
C. Guy Yarvin 2014-12-02 16:26:30 -08:00
parent 5fb9cd9ae9
commit b988d4b061

View File

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