ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-24 07:26:51 +03:00
Code Issues Packages Projects Releases Wiki Activity

fixed diff bug

Browse Source
This commit is contained in:
Philip C Monk 2015-02-19 13:39:28 -05:00
parent c826908afe
commit bee28f639a
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
arvo/ford.hoon
View File

@ -416,9 +416,8 @@
?~ for ?~ for
(flaw cof leaf/"bad ++sted:grad" ~) (flaw cof leaf/"bad ++sted:grad" ~)
%^ make cof %diff %^ make cof %diff
[kas kos] :- [%cast u.for [%done ~ cay]]
:: :- [%cast u.for [%done ~ cay]] [%cast u.for [%done ~ coy]]
:: [%cast u.for [%done ~ coy]]
?. (slab %diff p.gar) ?. (slab %diff p.gar)
(flaw cof leaf/"no ++diff:grad" ~) (flaw cof leaf/"no ++diff:grad" ~)
%+ cope (keel cof pro [[%& 6]~ q.cay]~) %+ cope (keel cof pro [[%& 6]~ q.cay]~)
@ -426,7 +425,7 @@
%+ cope %+ cope
%^ maul cof %^ maul cof
(slap (slap pox [%cnzy %grad]) [%cnzy %diff]) (slap (slap pox [%cnzy %grad]) [%cnzy %diff])
(slop q.cay q.coy) q.coy
|= [cof=cafe dif=vase] |= [cof=cafe dif=vase]
=+ for=((soft ,@tas) q:(slap gar [%cnzy %form])) =+ for=((soft ,@tas) q:(slap gar [%cnzy %form]))
?~ for ?~ for
@ -678,7 +677,7 @@
%+ cope %+ cope
%^ maul cof %^ maul cof
(slap (slap pro [%cnzy %grad]) [%cnzy %join]) (slap (slap pro [%cnzy %grad]) [%cnzy %join])
q.coy (slop q.cay q.coy)
|= [cof=cafe dif=vase] |= [cof=cafe dif=vase]
(fine cof p.cay dif) (fine cof p.cay dif)
== ==