mirror of
https://github.com/urbit/shrub.git
synced 2024-12-02 08:55:07 +03:00
Converted :-.
This commit is contained in:
parent
81046c7587
commit
752a49c398
@ -1608,7 +1608,7 @@
|
||||
:- %ex
|
||||
:* %wish
|
||||
[%base %noun]
|
||||
:+ %cons
|
||||
:+ %clhp
|
||||
[%rock %tas %cx]
|
||||
%+ rash pax.source.com
|
||||
rood:(vang | /(scot %p our.hid)/home/(scot %da now.hid))
|
||||
|
@ -5439,7 +5439,7 @@
|
||||
:: :::::: tuples
|
||||
{$scon p/twig q/twig} :: :_ [q p]
|
||||
{$conq p/twig q/twig r/twig s/twig} :: :^ [p q r s]
|
||||
{$cons p/twig q/twig} :: :- [p q]
|
||||
{$clhp p/twig q/twig} :: :- [p q]
|
||||
{$cont p/twig q/twig r/twig} :: :+ [p q r]
|
||||
{$conl p/(list twig)} :: :~ [p ~]
|
||||
{$conp p/(list twig)} :: :* p as a tuple
|
||||
@ -5684,7 +5684,7 @@
|
||||
==
|
||||
::
|
||||
++ cons :: make formula cell
|
||||
~/ %cons
|
||||
~/ %clhp
|
||||
|= {vur/nock sed/nock}
|
||||
^- nock
|
||||
?: ?=({{$0 *} {$0 *}} +<)
|
||||
@ -6310,7 +6310,7 @@
|
||||
:: {^ *} `[p.gen q.gen]
|
||||
:: {$dbug *} $(gen q.gen)
|
||||
:: {$scon *} `[q.gen p.gen]
|
||||
:: {$cons *} `[p.gen q.gen]
|
||||
:: {$clhp *} `[p.gen q.gen]
|
||||
:: {$conq *} `[p.gen %cont q.gen r.gen s.gen]
|
||||
:: {$conl *} ?~(p.gen ~ `[i.p.gen %conl t.p.gen])
|
||||
:: {$conp *} ?~ p.gen ~
|
||||
@ -6468,7 +6468,7 @@
|
||||
{$conq *} [p.gen q.gen r.gen s.gen]
|
||||
{$cont *} [p.gen q.gen r.gen]
|
||||
{$scon *} [q.gen p.gen]
|
||||
{$cons *} [p.gen q.gen]
|
||||
{$clhp *} [p.gen q.gen]
|
||||
{$conl *}
|
||||
|- ^- twig
|
||||
?~ p.gen
|
||||
@ -6768,7 +6768,7 @@
|
||||
$brwt (lead -.gen %.(+.gen (twin noop expr)))
|
||||
$scon (lead -.gen %.(+.gen dubs))
|
||||
$conq (lead -.gen %.(+.gen (quad expr expr expr expr)))
|
||||
$cons (lead -.gen %.(+.gen dubs))
|
||||
$clhp (lead -.gen %.(+.gen dubs))
|
||||
$cont (lead -.gen %.(+.gen trey))
|
||||
$conl (lead -.gen %.(+.gen moar))
|
||||
$conp (lead -.gen %.(+.gen moar))
|
||||
@ -9831,7 +9831,7 @@
|
||||
:~ ['_' (rune cab %scon expb)]
|
||||
['^' (rune ket %conq expd)]
|
||||
['+' (rune lus %cont expc)]
|
||||
['-' (rune hep %cons expb)]
|
||||
['-' (rune hep %clhp expb)]
|
||||
['~' (rune sig %conl exps)]
|
||||
['*' (rune tar %conp exps)]
|
||||
==
|
||||
@ -9870,7 +9870,7 @@
|
||||
(word %scon expb)
|
||||
(word %conq expd)
|
||||
(word %cont expc)
|
||||
(word %cons expb)
|
||||
(word %clhp expb)
|
||||
(word %conl exps)
|
||||
(word %conp exps)
|
||||
::
|
||||
|
@ -23,7 +23,7 @@
|
||||
:~ login-hint+?~(lon '' (crip (rash lon suffix-email)))
|
||||
access-type+%offline
|
||||
response-type+%code
|
||||
prompt+%consent
|
||||
prompt+%clhpent
|
||||
==
|
||||
++ scopes
|
||||
:~ 'https://mail.google.com'
|
||||
|
@ -5519,7 +5519,7 @@
|
||||
:: :::::: tuples
|
||||
{$scon p/twig q/twig} :: :_ [q p]
|
||||
{$conq p/twig q/twig r/twig s/twig} :: :^ [p q r s]
|
||||
{$cons p/twig q/twig} :: :- [p q]
|
||||
{$clhp p/twig q/twig} :: :- [p q]
|
||||
{$cont p/twig q/twig r/twig} :: :+ [p q r]
|
||||
{$conl p/(list twig)} :: :~ [p ~]
|
||||
{$conp p/(list twig)} :: :* p as a tuple
|
||||
@ -5768,7 +5768,7 @@
|
||||
==
|
||||
::
|
||||
++ cons :: make formula cell
|
||||
~/ %cons
|
||||
~/ %clhp
|
||||
|= {vur/nock sed/nock}
|
||||
^- nock
|
||||
?: ?=({{$0 *} {$0 *}} +<)
|
||||
@ -6394,7 +6394,7 @@
|
||||
:: {^ *} `[p.gen q.gen]
|
||||
:: {$dbug *} $(gen q.gen)
|
||||
:: {$scon *} `[q.gen p.gen]
|
||||
:: {$cons *} `[p.gen q.gen]
|
||||
:: {$clhp *} `[p.gen q.gen]
|
||||
:: {$conq *} `[p.gen %cont q.gen r.gen s.gen]
|
||||
:: {$conl *} ?~(p.gen ~ `[i.p.gen %conl t.p.gen])
|
||||
:: {$conp *} ?~ p.gen ~
|
||||
@ -6552,7 +6552,7 @@
|
||||
{$conq *} [p.gen q.gen r.gen s.gen]
|
||||
{$cont *} [p.gen q.gen r.gen]
|
||||
{$scon *} [q.gen p.gen]
|
||||
{$cons *} [p.gen q.gen]
|
||||
{$clhp *} [p.gen q.gen]
|
||||
{$conl *}
|
||||
|- ^- twig
|
||||
?~ p.gen
|
||||
@ -6886,7 +6886,7 @@
|
||||
$brwt (lead -.gen %.(+.gen (twin noop expr)))
|
||||
$scon (lead -.gen %.(+.gen dubs))
|
||||
$conq (lead -.gen %.(+.gen (quad expr expr expr expr)))
|
||||
$cons (lead -.gen %.(+.gen dubs))
|
||||
$clhp (lead -.gen %.(+.gen dubs))
|
||||
$cont (lead -.gen %.(+.gen trey))
|
||||
$conl (lead -.gen %.(+.gen moar))
|
||||
$conp (lead -.gen %.(+.gen moar))
|
||||
@ -10226,7 +10226,7 @@
|
||||
:~ ['_' (rune cab %scon expb)]
|
||||
['^' (rune ket %conq expd)]
|
||||
['+' (rune lus %cont expc)]
|
||||
['-' (rune hep %cons expb)]
|
||||
['-' (rune hep %clhp expb)]
|
||||
['~' (rune sig %conl exps)]
|
||||
['*' (rune tar %conp exps)]
|
||||
==
|
||||
@ -10265,7 +10265,7 @@
|
||||
(word %scon expb)
|
||||
(word %conq expd)
|
||||
(word %cont expc)
|
||||
(word %cons expb)
|
||||
(word %clhp expb)
|
||||
(word %conl exps)
|
||||
(word %conp exps)
|
||||
::
|
||||
|
Loading…
Reference in New Issue
Block a user