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

fix /=invalid= trap by not needlessly casting to %noun

Browse Source
This commit is contained in:
Anton Dyudin 2015-11-12 12:27:05 -08:00
parent e108f44b86
commit 62e856eb8c
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ape/dojo.hoon
View File

@ -697,7 +697,8 @@
++ dy-mare :: build expression ++ dy-mare :: build expression
|= gen=twig |= gen=twig
^- silk ^- silk
:+ %cast (fall (dy-twig-mark gen) %noun) =+ too=(dy-twig-mark gen)
=- ?~(too - [%cast u.too -])
:+ %ride gen :+ %ride gen
:- [%$ dy-twig-head] :- [%$ dy-twig-head]
[%plan he-beam / zuse arc lib ~ ~] [%plan he-beam / zuse arc lib ~ ~]

2
arvo/ford.hoon
View File

@ -1032,7 +1032,7 @@
(fine cof bem(r [%ud ((hard ,@) +.+:(need u.von))])) (fine cof bem(r [%ud ((hard ,@) +.+:(need u.von))]))
|= [cof=cafe bem=[[ship desk %ud r=@u] s=spur]] |= [cof=cafe bem=[[ship desk %ud r=@u] s=spur]]
?: =(0 r.bem) ?: =(0 r.bem)
(flaw cof [leaf/"ford: no data: {(tope bem(s ~))}"]~) (flaw cof [leaf/"ford: no data: {<(tope bem(s ~))>}"]~)
(fine cof bem) (fine cof bem)
:: ::
++ lave :: validate ++ lave :: validate