urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-07 05:26:56 +03:00
Code Issues Packages Projects Releases Wiki Activity

hoon: make +sink more concise

Browse Source
This commit is contained in:
Logan Allen 2021-06-04 16:06:40 -05:00
parent 7ef313c5e1
commit b6206728cc
1 changed files with 12 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
pkg/arvo/sys/hoon.hoon
View File

@ -10918,58 +10918,17 @@
?- sut ?- sut
%void 'void' %void 'void'
%noun 'noun' %noun 'noun'
[%atom *] [%atom *] (rap 3 'atom ' p.sut ' ' ?~(q.sut '~' u.q.sut) ~)
%+ rap 3 [%cell *] (rap 3 'cell ' (mup p.sut) ' ' (mup q.sut) ~)
:~ 'atom ' [%face *] (rap 3 'face ' ?@(p.sut p.sut (mup p.sut)) ' ' (mup q.sut) ~)
p.sut [%fork *] (rap 3 'fork ' (mup p.sut) ~)
' ' [%hint *] (rap 3 'hint ' (mup p.sut) ' ' (mup q.sut) ~)
?~(q.sut '~' u.q.sut) [%hold *] (rap 3 'hold ' (mup p.sut) ' ' (mup q.sut) ~)
==
::
[%cell *]
%+ rap 3
:~ 'cell '
(scot %p (mup p.sut))
' '
(scot %p (mup q.sut))
==
::
[%face *]
%+ rap 3
:~ 'face '
?@ p.sut
p.sut
(scot %p (mup p.sut))
' '
(scot %p (mup q.sut))
==
::
[%fork *]
%+ rap 3
:~ 'fork '
(scot %p (mup p.sut))
==
::
[%hint *]
%+ rap 3
:~ 'hint '
(scot %p (mup p.sut))
' '
(scot %p (mup q.sut))
==
::
[%hold *]
%+ rap 3
:~ 'hold '
(scot %p (mup p.sut))
' '
(scot %p (mup q.sut))
==
:: ::
[%core *] [%core *]
%+ rap 3 %+ rap 3
:~ 'core ' :~ 'core '
(scot %p (mup p.sut)) (mup p.sut)
' ' ' '
?~(p.p.q.sut '~' u.p.p.q.sut) ?~(p.p.q.sut '~' u.p.p.q.sut)
' ' ' '
@ -10977,13 +10936,13 @@
' ' ' '
r.p.q.sut r.p.q.sut
' ' ' '
(scot %p (mup q.q.sut)) (mup q.q.sut)
' ' ' '
(scot %p (mup p.r.q.sut)) (mup p.r.q.sut)
== ==
== ==
:: ::
++ mup |=(* `@p`(mug +<)) ++ mup |=(* (scot %p (mug +<)))
-- --
:: ::
++ take ++ take