urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-06 04:07:23 +03:00
Code Issues Packages Projects Releases Wiki Activity

better tracing

Browse Source
This commit is contained in:
Anton Dyudin 2016-02-19 18:17:33 -08:00
parent 071339c10d
commit 89bd08476d
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
arvo/ford.hoon
View File

@ -559,6 +559,7 @@
%_(+> mow :_(mow [hen %give gef]))
::
++ fade :: compile to hood
~/ %fade
|= {cof/cafe for/mark bem/beam}
^- (bolt hood)
%+ cool |.(leaf+"ford: fade {<[(tope bem)]>}")
@ -1013,8 +1014,9 @@
(fall ((soft (list mark)) q) ~)
::
++ lima :: load at depth
~/ %lima
|= {cof/cafe for/mark arg/coin bem/beam}
%+ (clef %bake) [p=cof q=[%0 p=[bem `~] q=[for arg bem]]]
%+ (clef %bake) (flag bem (fine cof for arg bem))
|= {cof/cafe for/mark arg/coin bem/beam}
^- (bolt (unit vase))
%+ cope (laze cof bem)
@ -1039,6 +1041,7 @@
(leap cof [-.bem /[for]/ren] bem arg)
::
++ link :: translate
~/ %link
|= {cof/cafe too/mark for/mark vax/vase}
^- (bolt vase)
:: %+ cool |.(leaf+"ford: link {<too>} {<for>} {<p.vax>}")
@ -1064,8 +1067,9 @@
(maul cof u.zat vax)
::
++ lion :: translation search
~/ %lion
|= {cof/cafe too/mark fro/(set mark)}
:: ~& lion+[too=too fro=(silt fro)]
:: ~& lion+[too=too fro=fro]
^- (bolt (list mark))
=- %+ coop (gro cof too ~ ~) :: XX better grab layer
|= cof/cafe
@ -1105,6 +1109,7 @@
^$(cof cof, for i.yaw, yaw t.yaw, vax yed)
::
++ mail :: cached mint
~/ %mail
|= {cof/cafe sut/span gen/twig}
^- (bolt (pair span nock))
%+ (clef %slim) (fine cof sut gen)
@ -1301,6 +1306,7 @@
==
::
++ malt :: cached slit
~/ %slit
|= {cof/cafe gat/span sam/span}
^- (bolt span)
%+ (clef %slit) (fine cof gat sam)