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

Like last commit but actually works.

Browse Source
This commit is contained in:
C. Guy Yarvin 2017-11-29 12:36:02 -08:00
parent 212f58368f
commit ecafc30064
1 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
sys/hoon.hoon
View File

@ -6543,10 +6543,16 @@
{$kelp *}
%- hail
=. wat ~
:+ %ktls
|- ^- hoon
?~ t.p.sec
^$(sec i.p.sec)
[%wtcl [%bust %bean] $(p.sec t.p.sec) ^$(sec i.p.sec)]
%= $
sec
|- ^- tile
?~(t.p.sec i.p.sec $(i.p.sec i.t.p.sec, t.p.sec t.t.p.sec))
==
::
{$leaf *}
(hail [%rock p.sec q.sec])
@ -11186,11 +11192,6 @@
scab
(cold [%base %cell] ket)
==
:- ['a' 'z']
;~ pose
(stag %bcts ;~(plug sym ;~(pfix ;~(pose fas tis) wyde)))
scab
==
:- '='
;~ pfix tis
%+ sear
@ -11199,6 +11200,7 @@
%+ bind
|- ^- (unit term)
?+ hon ~
{$bcsm *} $(hon p.hon)
{$wing *} ?~(p.hon ~ ?^(i.p.hon ~ `i.p.hon))
{$limb *} `p.hon
{$dbug *} $(hon ~(open ap hon))
@ -11208,6 +11210,11 @@
|=(term [%bcts +< hon])
wyde
==
:- ['a' 'z']
;~ pose
(stag %bcts ;~(plug sym ;~(pfix ;~(pose fas tis) wyde)))
scab
==
==
::
++ scat !: