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

misc debugging

Browse Source
This commit is contained in:
Anton Dyudin 2016-03-07 17:29:54 -08:00
parent 3a3bac2f1f
commit 96823f230c
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
arvo/ford.hoon
View File

@ -1395,6 +1395,7 @@
|=(val/* `vase`[typ val])
::
++ meow :: assemble
:: =+ dyv=0
|= {how/beam arg/coin}
=| $: rop/(map term (pair hoof twig)) :: structures
bil/(map term (pair hoof twig)) :: libraries
@ -1428,6 +1429,9 @@
|= {cof/cafe hyd/hood}
^- (bolt _..apex)
%+ cope (body cof src.hyd)
::=. dyv +(dyv)
::~& [`term`(cat 3 %apex (fil 4 dyv ' ')) `path`(flop s.how) libs]
::=- ~& [`term`(cat 3 %xepa (fil 4 dyv ' ')) `path`(flop s.how)] -
|= {cof/cafe sel/_..apex}
=. ..apex sel
%+ cope (neck cof lib.hyd)
@ -1445,6 +1449,7 @@
|= {cof/cafe sel/_..body}
^$(src t.src, ..body sel, cof cof)
::
:: ++ libs `(set term)`(silt (turn (~(tap by bil)) head.is))
++ chad :: atomic list
|= {cof/cafe bax/vase doe/term hon/horn}
^- (bolt vase)