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

2
neo/van/ford.hoon
View File

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

54
sys/hoon.hoon
View File

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

2
sys/vane/ford.hoon
View File

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