urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-03 05:43:18 +03:00
Code Issues Packages Projects Releases Wiki Activity

remove ford $hoon special-cases to properly fix #39

Browse Source 
If anything breaks, rerun with parent commit, which will ~& which of the things broke(and keep going).
This commit is contained in:
Anton Dyudin 2016-04-18 18:03:58 -07:00
parent ebf1aec2fd
commit b405a86ed4
1 changed files with 0 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
arvo/ford.hoon
View File

@ -962,11 +962,6 @@
|= {cof/cafe sam/vase}
^- (bolt vase)
%+ cool |.(leaf+"ford: check {<[for bek `@p`(mug q.sam)]>}")
?: &(!fit ?=($hoon for)) :: break depends loop
~& %lake-hoon-loop
?. (~(nest ut [%atom %t ~]) | p.sam)
(flaw cof [leaf+"ford: bad hoon"]~)
(fine cof [%atom %t ~] q.sam)
%+ cope (fang cof for)
|= {cof/cafe tux/vase}
=+ typ=p:(slot 6 tux)
@ -1237,12 +1232,6 @@
::
$bunt
%+ cool |.(leaf+"ford: bunt {<p.kas>}")
~| bunt+p.kas
=- ?. ?=($hoon p.kas) -
%+ coop -
|= cof/cafe ^- (bolt gage)
~& bunt-hoon+(tope bek ~)
(fine cof %& p.kas [%atom %t ~] '')
%+ cope (fang cof p.kas)
|= {cof/cafe tux/vase}
=+ [typ=p val=q]:(slot 6 tux)
@ -1728,16 +1717,6 @@
|=({cof/cafe p/silk q/silk} (cope (make cof q) furl))
==
|= {cof/cafe cay/cage coy/cage} ^- (bolt gage)
~| pact+[p.cay p.coy]
=- ?. ?=($hoon p.cay) -
%+ coop -
|= cof/cafe ^- (bolt gage)
~& pact-hoon+(tope bek ~)
?. ?=($txt-diff p.coy)
(flaw cof leaf+"{<p.cay>} mark with bad diff type: {<p.coy>}" ~)
%+ cope (maul cof !>(pact-hoon) (slop q.cay q.coy))
(flux |=(vax/vase:cord [%& p.cay vax]))
::
%+ cope (fang cof p.cay)
|= {cof/cafe pro/vase}
?. (slab %grad p.pro)