ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-29 12:15:43 +03:00
Code Issues Packages Projects Releases Wiki Activity

All % runes except %-.

Browse Source
This commit is contained in:
C. Guy Yarvin 2017-09-18 17:55:32 -07:00
parent 6b00c3d231
commit 76dbc417ae
4 changed files with 56 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
neo/hoon.hoon
View File

@ -5444,12 +5444,12 @@
{$clsg p/(list twig)} :: :~ [p ~]
{$cltr p/(list twig)} :: :* p as a tuple
:: :::::: invocations
{$keep p/wing q/(list (pair wing twig))} :: %_
{$lace p/twig q/twig} :: %.
{$cncb p/wing q/(list (pair wing twig))} :: %_
{$cndt p/twig q/twig} :: %.
{$call p/twig q/(list twig)} :: %-
{$cntr p/wing q/twig r/(list (pair wing twig))} :: %*
{$calq p/twig q/twig r/twig s/twig} :: %^
{$calt p/twig q/twig r/twig} :: %+
{$cnkt p/twig q/twig r/twig s/twig} :: %^
{$cnls p/twig q/twig r/twig} :: %+
{$open p/wing q/twig r/(list twig)} :: %~
{$make p/wing q/(list (pair wing twig))} :: %=
:: :::::: nock
@ -6484,10 +6484,10 @@
[i.p.gen $(p.gen t.p.gen)]
::
{$bunt *} [%burn ~(bunt al %herb p.gen)]
{$keep *} [%like [%wing p.gen] %make p.gen q.gen]
{$lace *} [%call q.gen [p.gen ~]]
{$calq *} [%call p.gen q.gen r.gen s.gen ~]
{$calt *} [%call p.gen q.gen r.gen ~]
{$cncb *} [%like [%wing p.gen] %make p.gen q.gen]
{$cndt *} [%call q.gen [p.gen ~]]
{$cnkt *} [%call p.gen q.gen r.gen s.gen ~]
{$cnls *} [%call p.gen q.gen r.gen ~]
{$call *} [%open [%$ ~] p.gen q.gen]
{$open *} :: [%cntr p.gen q.gen (hail(gen [%cltr r.gen]) 6)]
:^ %cntr p.gen q.gen
@ -6588,7 +6588,7 @@
[%wing [%| 0 ~] [%& 6] ~] ::
[%limb %b] ::
:+ %brdt [~ ~] :: |.
:^ %calt :: %+
:^ %cnls :: %+
[%per [%limb %v] p.gen] :: =>(v {p.gen})
[%call [%limb %b] [%limb %c] ~] :: (b c)
:+ %make [%a ~] :: a(,.+6 c)
@ -6612,7 +6612,7 @@
[%pin ~(bunt al %herb p.gen) q.gen]
::
{$fix *}
[%per [%keep [[%& 1] ~] p.gen] q.gen]
[%per [%cncb [[%& 1] ~] p.gen] q.gen]
::
{$var *}
?~ q.p.gen
@ -6621,7 +6621,7 @@
::
{$rev *} [%var p.gen r.gen q.gen]
{$set *}
[%per [%keep [[%& 1] ~] [[p.gen q.gen] ~]] r.gen]
[%per [%cncb [[%& 1] ~] [[p.gen q.gen] ~]] r.gen]
{$huh *} :: =?
[%set p.gen [%if q.gen r.gen [%wing p.gen]] s.gen]
::
@ -6772,12 +6772,12 @@
$clls (lead -.gen %.(+.gen trey))
$clsg (lead -.gen %.(+.gen moar))
$cltr (lead -.gen %.(+.gen moar))
$keep (lead -.gen %.(+.gen (twin noop moan)))
$lace (lead -.gen %.(+.gen dubs))
$cncb (lead -.gen %.(+.gen (twin noop moan)))
$cndt (lead -.gen %.(+.gen dubs))
$call (lead -.gen %.(+.gen (twin expr moar)))
$cntr (lead -.gen %.(+.gen (trio noop expr moan)))
$calq (lead -.gen %.(+.gen (quad expr expr expr expr)))
$calt (lead -.gen %.(+.gen trey))
$cnkt (lead -.gen %.(+.gen (quad expr expr expr expr)))
$cnls (lead -.gen %.(+.gen trey))
$open (lead -.gen %.(+.gen (trio noop expr moar)))
$make (lead -.gen %.(+.gen (twin noop moan)))
$wish (lead -.gen %.(+.gen dubs))
@ -9462,7 +9462,7 @@
$a [[%nub p.i.lut] $(lut t.lut)]
$b [p.i.lut $(lut t.lut)]
$c :_ ~
:+ %lace `twig`[p.i.lut [%cltr $(lut t.lut)]]
:+ %cndt `twig`[p.i.lut [%cltr $(lut t.lut)]]
:+ %new [%base %cell]
:+ %brcn [~ ~]
^- (map @ tomb)
@ -9768,8 +9768,8 @@
;~ pfix cen
%- stew
^. stet ^. limo
:~ ['^' (rune ket %calq exqy)]
['+' (rune lus %calt exqx)]
:~ ['^' (rune ket %cnkt exqy)]
['+' (rune lus %cnls exqx)]
['-' (rune hep %call exqk)]
[':' (rune col %call exqz)]
==
@ -9812,10 +9812,10 @@
;~ pfix cen
%- stew
^. stet ^. limo
:~ ['_' (rune cab %keep exph)]
['.' (rune dot %lace expb)]
['^' (rune ket %calq expd)]
['+' (rune lus %calt expc)]
:~ ['_' (rune cab %cncb exph)]
['.' (rune dot %cndt expb)]
['^' (rune ket %cnkt expd)]
['+' (rune lus %cnls expc)]
['-' (rune hep %call expk)]
[':' (rune col %call expi)]
['~' (rune sig %open expu)]
@ -9858,10 +9858,10 @@
(word %bcwt exps)
(word %bcsm expa)
::
(word %keep exph)
(word %lace expb)
(word %calq expd)
(word %calt expc)
(word %cncb exph)
(word %cndt expb)
(word %cnkt expd)
(word %cnls expc)
(word %call expk)
(word %open expu)
(word %cntr expm)
@ -10502,7 +10502,7 @@
++ open :: assemble door
|= {vax/vase nam/term som/(each vase ^)}
^- {vase worm}
=* key [%keep [[%& 2] ~] [[[%& 6] ~] [%$ 3]] ~]
=* key [%cncb [[%& 2] ~] [[[%& 6] ~] [%$ 3]] ~]
=^ dor +>+<.$ (slap vax [%limb nam])
=^ mes +>+<.$ (slot 6 dor)
=^ hip +>+<.$

2
neo/van/ford.hoon
View File

@ -964,7 +964,7 @@
?~ yom [[%atom %n ~] ~]
(slop q.i.yom $(yom t.yom))
^- twig
:+ %keep [%& 2]~
:+ %cncb [%& 2]~
=+ axe=3
|- ^- (list (pair wing twig))
?~ yom ~

54
sys/hoon.hoon
View File

@ -5524,12 +5524,12 @@
{$clsg p/(list twig)} :: :~ [p ~]
{$cltr p/(list twig)} :: :* p as a tuple
:: :::::: invocations
{$keep p/wing q/(list (pair wing twig))} :: %_
{$lace p/twig q/twig} :: %.
{$cncb p/wing q/(list (pair wing twig))} :: %_
{$cndt p/twig q/twig} :: %.
{$call p/twig q/(list twig)} :: %-
{$cntr p/wing q/twig r/(list (pair wing twig))} :: %*
{$calq p/twig q/twig r/twig s/twig} :: %^
{$calt p/twig q/twig r/twig} :: %+
{$cnkt p/twig q/twig r/twig s/twig} :: %^
{$cnls p/twig q/twig r/twig} :: %+
{$cnsg p/wing q/twig r/(list twig)} :: %~
{$cnts p/wing q/(list (pair wing twig))} :: %=
:: :::::: nock
@ -6568,10 +6568,10 @@
[i.p.gen $(p.gen t.p.gen)]
::
{$bunt *} [%burn ~(bunt al %herb p.gen)]
{$keep *} [%like [%wing p.gen] %cnts p.gen q.gen]
{$lace *} [%call q.gen [p.gen ~]]
{$calq *} [%call p.gen q.gen r.gen s.gen ~]
{$calt *} [%call p.gen q.gen r.gen ~]
{$cncb *} [%like [%wing p.gen] %cnts p.gen q.gen]
{$cndt *} [%call q.gen [p.gen ~]]
{$cnkt *} [%call p.gen q.gen r.gen s.gen ~]
{$cnls *} [%call p.gen q.gen r.gen ~]
{$call *} [%cnsg [%$ ~] p.gen q.gen]
{$cnsg *} :: [%cntr p.gen q.gen (hail(gen [%cltr r.gen]) 6)]
:^ %cntr p.gen q.gen
@ -6656,7 +6656,7 @@
$manx [p.i.p.gen $(p.gen t.p.gen)]
$tape [[%nub p.i.p.gen] $(p.gen t.p.gen)]
$call [%call p.i.p.gen [$(p.gen t.p.gen)]~]
$marl =- [%lace [p.i.p.gen $(p.gen t.p.gen)] -]
$marl =- [%cndt [p.i.p.gen $(p.gen t.p.gen)] -]
^- twig
:+ %new [%base %cell]
:+ %brcn *chap
@ -6706,7 +6706,7 @@
[%wing [%| 0 ~] [%& 6] ~] ::
[%limb %b] ::
:+ %brdt [~ ~] :: |.
:^ %calt :: %+
:^ %cnls :: %+
[%per [%limb %v] p.gen] :: =>(v {p.gen})
[%call [%limb %b] [%limb %c] ~] :: (b c)
:+ %cnts [%a ~] :: a(,.+6 c)
@ -6730,7 +6730,7 @@
[%pin ~(bunt al %herb p.gen) q.gen]
::
{$fix *}
[%per [%keep [[%& 1] ~] p.gen] q.gen]
[%per [%cncb [[%& 1] ~] p.gen] q.gen]
::
{$var *}
?~ q.p.gen
@ -6739,7 +6739,7 @@
::
{$rev *} [%var p.gen r.gen q.gen]
{$set *}
[%per [%keep [[%& 1] ~] [[p.gen q.gen] ~]] r.gen]
[%per [%cncb [[%& 1] ~] [[p.gen q.gen] ~]] r.gen]
{$huh *} :: =?
[%set p.gen [%if q.gen r.gen [%wing p.gen]] s.gen]
::
@ -6890,12 +6890,12 @@
$clls (lead -.gen %.(+.gen trey))
$clsg (lead -.gen %.(+.gen moar))
$cltr (lead -.gen %.(+.gen moar))
$keep (lead -.gen %.(+.gen (twin noop moan)))
$lace (lead -.gen %.(+.gen dubs))
$cncb (lead -.gen %.(+.gen (twin noop moan)))
$cndt (lead -.gen %.(+.gen dubs))
$call (lead -.gen %.(+.gen (twin expr moar)))
$cntr (lead -.gen %.(+.gen (trio noop expr moan)))
$calq (lead -.gen %.(+.gen (quad expr expr expr expr)))
$calt (lead -.gen %.(+.gen trey))
$cnkt (lead -.gen %.(+.gen (quad expr expr expr expr)))
$cnls (lead -.gen %.(+.gen trey))
$cnsg (lead -.gen %.(+.gen (trio noop expr moar)))
$cnts (lead -.gen %.(+.gen (twin noop moan)))
$wish (lead -.gen %.(+.gen dubs))
@ -10163,8 +10163,8 @@
;~ pfix cen
%- stew
^. stet ^. limo
:~ ['^' (rune ket %calq exqy)]
['+' (rune lus %calt exqx)]
:~ ['^' (rune ket %cnkt exqy)]
['+' (rune lus %cnls exqx)]
['-' (rune hep %call exqk)]
[':' (rune col %call exqz)]
==
@ -10207,10 +10207,10 @@
;~ pfix cen
%- stew
^. stet ^. limo
:~ ['_' (rune cab %keep exph)]
['.' (rune dot %lace expb)]
['^' (rune ket %calq expd)]
['+' (rune lus %calt expc)]
:~ ['_' (rune cab %cncb exph)]
['.' (rune dot %cndt expb)]
['^' (rune ket %cnkt expd)]
['+' (rune lus %cnls expc)]
['-' (rune hep %call expk)]
[':' (rune col %call expi)]
['~' (rune sig %cnsg expu)]
@ -10253,10 +10253,10 @@
(word %bcwt exps)
(word %bcsm expa)
::
(word %keep exph)
(word %lace expb)
(word %calq expd)
(word %calt expc)
(word %cncb exph)
(word %cndt expb)
(word %cnkt expd)
(word %cnls expc)
(word %call expk)
(word %cnsg expu)
(word %cntr expm)
@ -10898,7 +10898,7 @@
++ open :: assemble door
|= {vax/vase nam/term som/(each vase ^)}
^- {vase worm}
=* key [%keep [[%& 2] ~] [[[%& 6] ~] [%$ 3]] ~]
=* key [%cncb [[%& 2] ~] [[[%& 6] ~] [%$ 3]] ~]
=^ dor +>+<.$ (slap vax [%limb nam])
=^ mes +>+<.$ (slot 6 dor)
=^ hip +>+<.$

2
sys/vane/ford.hoon
View File

@ -966,7 +966,7 @@
?~ yom [[%atom %n ~] ~]
(slop q.i.yom $(yom t.yom))
^- twig
:+ %keep [%& 2]~
:+ %cncb [%& 2]~
=+ axe=3
|- ^- (list (pair wing twig))
?~ yom ~