Converted :-.

This commit is contained in:
C. Guy Yarvin 2017-09-18 10:25:05 -07:00
parent 81046c7587
commit 752a49c398
4 changed files with 16 additions and 16 deletions

View File

@ -1608,7 +1608,7 @@
:- %ex :- %ex
:* %wish :* %wish
[%base %noun] [%base %noun]
:+ %cons :+ %clhp
[%rock %tas %cx] [%rock %tas %cx]
%+ rash pax.source.com %+ rash pax.source.com
rood:(vang | /(scot %p our.hid)/home/(scot %da now.hid)) rood:(vang | /(scot %p our.hid)/home/(scot %da now.hid))

View File

@ -5439,7 +5439,7 @@
:: :::::: tuples :: :::::: tuples
{$scon p/twig q/twig} :: :_ [q p] {$scon p/twig q/twig} :: :_ [q p]
{$conq p/twig q/twig r/twig s/twig} :: :^ [p q r s] {$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] {$cont p/twig q/twig r/twig} :: :+ [p q r]
{$conl p/(list twig)} :: :~ [p ~] {$conl p/(list twig)} :: :~ [p ~]
{$conp p/(list twig)} :: :* p as a tuple {$conp p/(list twig)} :: :* p as a tuple
@ -5684,7 +5684,7 @@
== ==
:: ::
++ cons :: make formula cell ++ cons :: make formula cell
~/ %cons ~/ %clhp
|= {vur/nock sed/nock} |= {vur/nock sed/nock}
^- nock ^- nock
?: ?=({{$0 *} {$0 *}} +<) ?: ?=({{$0 *} {$0 *}} +<)
@ -6310,7 +6310,7 @@
:: {^ *} `[p.gen q.gen] :: {^ *} `[p.gen q.gen]
:: {$dbug *} $(gen q.gen) :: {$dbug *} $(gen q.gen)
:: {$scon *} `[q.gen p.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] :: {$conq *} `[p.gen %cont q.gen r.gen s.gen]
:: {$conl *} ?~(p.gen ~ `[i.p.gen %conl t.p.gen]) :: {$conl *} ?~(p.gen ~ `[i.p.gen %conl t.p.gen])
:: {$conp *} ?~ p.gen ~ :: {$conp *} ?~ p.gen ~
@ -6468,7 +6468,7 @@
{$conq *} [p.gen q.gen r.gen s.gen] {$conq *} [p.gen q.gen r.gen s.gen]
{$cont *} [p.gen q.gen r.gen] {$cont *} [p.gen q.gen r.gen]
{$scon *} [q.gen p.gen] {$scon *} [q.gen p.gen]
{$cons *} [p.gen q.gen] {$clhp *} [p.gen q.gen]
{$conl *} {$conl *}
|- ^- twig |- ^- twig
?~ p.gen ?~ p.gen
@ -6768,7 +6768,7 @@
$brwt (lead -.gen %.(+.gen (twin noop expr))) $brwt (lead -.gen %.(+.gen (twin noop expr)))
$scon (lead -.gen %.(+.gen dubs)) $scon (lead -.gen %.(+.gen dubs))
$conq (lead -.gen %.(+.gen (quad expr expr expr expr))) $conq (lead -.gen %.(+.gen (quad expr expr expr expr)))
$cons (lead -.gen %.(+.gen dubs)) $clhp (lead -.gen %.(+.gen dubs))
$cont (lead -.gen %.(+.gen trey)) $cont (lead -.gen %.(+.gen trey))
$conl (lead -.gen %.(+.gen moar)) $conl (lead -.gen %.(+.gen moar))
$conp (lead -.gen %.(+.gen moar)) $conp (lead -.gen %.(+.gen moar))
@ -9831,7 +9831,7 @@
:~ ['_' (rune cab %scon expb)] :~ ['_' (rune cab %scon expb)]
['^' (rune ket %conq expd)] ['^' (rune ket %conq expd)]
['+' (rune lus %cont expc)] ['+' (rune lus %cont expc)]
['-' (rune hep %cons expb)] ['-' (rune hep %clhp expb)]
['~' (rune sig %conl exps)] ['~' (rune sig %conl exps)]
['*' (rune tar %conp exps)] ['*' (rune tar %conp exps)]
== ==
@ -9870,7 +9870,7 @@
(word %scon expb) (word %scon expb)
(word %conq expd) (word %conq expd)
(word %cont expc) (word %cont expc)
(word %cons expb) (word %clhp expb)
(word %conl exps) (word %conl exps)
(word %conp exps) (word %conp exps)
:: ::

View File

@ -23,7 +23,7 @@
:~ login-hint+?~(lon '' (crip (rash lon suffix-email))) :~ login-hint+?~(lon '' (crip (rash lon suffix-email)))
access-type+%offline access-type+%offline
response-type+%code response-type+%code
prompt+%consent prompt+%clhpent
== ==
++ scopes ++ scopes
:~ 'https://mail.google.com' :~ 'https://mail.google.com'

View File

@ -5519,7 +5519,7 @@
:: :::::: tuples :: :::::: tuples
{$scon p/twig q/twig} :: :_ [q p] {$scon p/twig q/twig} :: :_ [q p]
{$conq p/twig q/twig r/twig s/twig} :: :^ [p q r s] {$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] {$cont p/twig q/twig r/twig} :: :+ [p q r]
{$conl p/(list twig)} :: :~ [p ~] {$conl p/(list twig)} :: :~ [p ~]
{$conp p/(list twig)} :: :* p as a tuple {$conp p/(list twig)} :: :* p as a tuple
@ -5768,7 +5768,7 @@
== ==
:: ::
++ cons :: make formula cell ++ cons :: make formula cell
~/ %cons ~/ %clhp
|= {vur/nock sed/nock} |= {vur/nock sed/nock}
^- nock ^- nock
?: ?=({{$0 *} {$0 *}} +<) ?: ?=({{$0 *} {$0 *}} +<)
@ -6394,7 +6394,7 @@
:: {^ *} `[p.gen q.gen] :: {^ *} `[p.gen q.gen]
:: {$dbug *} $(gen q.gen) :: {$dbug *} $(gen q.gen)
:: {$scon *} `[q.gen p.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] :: {$conq *} `[p.gen %cont q.gen r.gen s.gen]
:: {$conl *} ?~(p.gen ~ `[i.p.gen %conl t.p.gen]) :: {$conl *} ?~(p.gen ~ `[i.p.gen %conl t.p.gen])
:: {$conp *} ?~ p.gen ~ :: {$conp *} ?~ p.gen ~
@ -6552,7 +6552,7 @@
{$conq *} [p.gen q.gen r.gen s.gen] {$conq *} [p.gen q.gen r.gen s.gen]
{$cont *} [p.gen q.gen r.gen] {$cont *} [p.gen q.gen r.gen]
{$scon *} [q.gen p.gen] {$scon *} [q.gen p.gen]
{$cons *} [p.gen q.gen] {$clhp *} [p.gen q.gen]
{$conl *} {$conl *}
|- ^- twig |- ^- twig
?~ p.gen ?~ p.gen
@ -6886,7 +6886,7 @@
$brwt (lead -.gen %.(+.gen (twin noop expr))) $brwt (lead -.gen %.(+.gen (twin noop expr)))
$scon (lead -.gen %.(+.gen dubs)) $scon (lead -.gen %.(+.gen dubs))
$conq (lead -.gen %.(+.gen (quad expr expr expr expr))) $conq (lead -.gen %.(+.gen (quad expr expr expr expr)))
$cons (lead -.gen %.(+.gen dubs)) $clhp (lead -.gen %.(+.gen dubs))
$cont (lead -.gen %.(+.gen trey)) $cont (lead -.gen %.(+.gen trey))
$conl (lead -.gen %.(+.gen moar)) $conl (lead -.gen %.(+.gen moar))
$conp (lead -.gen %.(+.gen moar)) $conp (lead -.gen %.(+.gen moar))
@ -10226,7 +10226,7 @@
:~ ['_' (rune cab %scon expb)] :~ ['_' (rune cab %scon expb)]
['^' (rune ket %conq expd)] ['^' (rune ket %conq expd)]
['+' (rune lus %cont expc)] ['+' (rune lus %cont expc)]
['-' (rune hep %cons expb)] ['-' (rune hep %clhp expb)]
['~' (rune sig %conl exps)] ['~' (rune sig %conl exps)]
['*' (rune tar %conp exps)] ['*' (rune tar %conp exps)]
== ==
@ -10265,7 +10265,7 @@
(word %scon expb) (word %scon expb)
(word %conq expd) (word %conq expd)
(word %cont expc) (word %cont expc)
(word %cons expb) (word %clhp expb)
(word %conl exps) (word %conl exps)
(word %conp exps) (word %conp exps)
:: ::