ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-01 11:33:41 +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

25
sys/hoon.hoon
View File

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