urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 19:46:50 +03:00
Code Issues Packages Projects Releases Wiki Activity

better ford++make %bake debug printf

Browse Source
This commit is contained in:
Anton Dyudin 2016-02-19 18:11:04 -08:00
parent 9bb02f7723
commit 071339c10d
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
arvo/ford.hoon
View File

@ -1128,17 +1128,19 @@
%+ cope (lamp cof bek ~)
|=({cof/cafe byk/beak *} (make(bek byk) cof kas))
::
++ abbrev :: shorten coin
|=(a/coin ?-(-.a $$ a, $blob a(p (mug p.a)), $many a(p (turn p.a ..$))))
::
++ make :: reduce silk
|= {cof/cafe kas/silk}
:: =+ ^= pre
:: ?+ -.kas -.kas
:: ?+ -.kas `term`-.kas
:: ^ %cell
:: :: $boil [-.kas p.kas (tope q.kas)]
:: $bake [-.kas p.kas (tope q.kas)]
:: $bake [-.kas p.kas (tope r.kas) ~(rent co (abbrev q.kas))]
:: $core [-.kas (tope p.kas)]
:: ==
:: ~& [dyv `term`(cat 3 %make (fil 3 dyv ' ')) pre]
:: =- ~& [dyv `term`(cat 3 %made (fil 3 dyv ' ')) pre] -
:: ~? !=(%$ pre) [dyv `term`(cat 3 %make (fil 3 dyv ' ')) pre]
:: =- ~? !=(%$ pre) [dyv `term`(cat 3 %made (fil 3 dyv ' ')) pre] -
:: =. dyv +(dyv)
^- (bolt gage)
?- -.kas