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

Lore to crash on 0

Browse Source
This commit is contained in:
Gavin Whelan 2014-05-28 13:19:49 -07:00
parent 0082afad57
commit 9913150cf7
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
arvo/hoon.hoon
View File

@ -3859,7 +3859,10 @@
|- ^- @ud
=+ gam=(cut 3 [meg 1] lub)
?:(|(=(10 gam) =(0 gam)) meg $(meg +(meg)))
$(lub (rsh 3 +(meg) lub), tez [(end 3 meg lub) tez])
=+ res=(rsh 3 +(meg) lub)
?: &(=(0 (cut 3 [meg 1] lub)) !=(0 res))
!!
$(lub res, tez [(end 3 meg lub) tez])
::
++ role :: line list to atom
|= tez=(list ,@t)