ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-21 15:38:59 +03:00
Code Issues Packages Projects Releases Wiki Activity

prevents nest-fail in ;; / :fry

Browse Source
This commit is contained in:
Joseph Bryan 2017-03-21 12:44:13 -04:00
parent 35d174565f
commit 5c61aee6c6
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
sys/hoon.hoon
View File

@ -6351,7 +6351,11 @@
:+ %pin [%name %b [%per [%limb %v] q.gen]] :: =+ b==>(v {q.gen})
:+ %pin :: =+ c=(a b)
[%name %c [%call [%limb %a] [%limb %b] ~]] ::
[%sure [%same [%limb %c] [%limb %b]] [%limb %c]] :: ?>(=(c b) c)
:+ %sure :: ?>(=(`*`c `*`b) c)
:+ %same ::
[%cast [%base %noun] [%limb %c]] ::
[%cast [%base %noun] [%limb %b]] ::
[%limb %c] ::
::
{$new *}
[%pin ~(bunt al %herb p.gen) q.gen]