hoon: vat to pat

This commit is contained in:
John Franklin 2020-05-28 02:45:04 -05:00
parent bc46e26a5d
commit 6c8e3b1c92
4 changed files with 13 additions and 13 deletions

View File

@ -618,7 +618,7 @@
++ letter
;~ pose
(stag %url turl)
(stag %me ;~(pfix vat text))
(stag %me ;~(pfix pat text))
(stag %text ;~(less mic hax text))
==
:: +turl: url parser

View File

@ -168,7 +168,7 @@
++ parse-sink
;~ pose
;~(plug (cold %file tar) parse-beam)
;~(plug (cold %flat vat) (most net sym))
;~(plug (cold %flat pat) (most net sym))
;~(plug (cold %pill dot) (most net sym))
;~(plug (cold %http lus) (stag %post parse-url))
;~(plug (cold %http hep) (stag %put parse-url))

View File

@ -12542,7 +12542,7 @@
;~ plug
(punt ;~(plug (cold %id hax) (cook trip sym)))
(cook en-class (star ;~(plug (cold %class dot) sym)))
(punt ;~(plug ;~(pose (cold %href net) (cold %src vat)) soil))
(punt ;~(plug ;~(pose (cold %href net) (cold %src pat)) soil))
(easy ~)
==
::
@ -13393,7 +13393,7 @@
:- '/'
;~(pfix net (stag %loop ;~(pose (cold %$ buc) sym)))
:- '@'
;~(pfix vat (stag %base (stag %atom mota)))
;~(pfix pat (stag %base (stag %atom mota)))
:- '?'
;~ pose
%+ stag %bswt
@ -13492,7 +13492,7 @@
(cold [%base %noun] tar)
==
:- '@'
;~(pfix vat (stag %base (stag %atom mota)))
;~(pfix pat (stag %base (stag %atom mota)))
:- '+'
;~ pose
(stag %dtls ;~(pfix lus (ifix [lit rit] wide)))
@ -13567,7 +13567,7 @@
;~ pose
%+ cook
|=({a/@ta b/hoon} [%ktls [%sand a 0] [%ktls [%sand %$ 0] b]])
;~(pfix vat ;~(plug mota ;~(pfix tic wide)))
;~(pfix pat ;~(plug mota ;~(pfix tic wide)))
;~ pfix tar
(stag %kthp (stag [%base %noun] ;~(pfix tic wide)))
==
@ -13657,7 +13657,7 @@
['~' (rune sig %bssg exqd)]
['|' (rune bar %bsbr exqc)]
['&' (rune pam %bspd exqc)]
['@' (rune vat %bsvt exqb)]
['@' (rune pat %bsvt exqb)]
['_' (rune cab %bscb expa)]
['-' (rune hep %bshp exqb)]
['=' (rune tis %bsts exqg)]
@ -13704,7 +13704,7 @@
^. stet ^. limo
:~ ['_' (rune cab %brcb exqr)]
['%' (runo cen %brcn ~ expe)]
['@' (runo vat %brvt ~ expe)]
['@' (runo pat %brvt ~ expe)]
[':' (rune col %brcl expb)]
['.' (rune dot %brdt expa)]
['-' (rune hep %brhp expa)]
@ -13720,7 +13720,7 @@
;~ pfix buc
%- stew
^. stet ^. limo
:~ ['@' (stag %ktcl (rune vat %bsvt exqb))]
:~ ['@' (stag %ktcl (rune pat %bsvt exqb))]
['_' (stag %ktcl (rune cab %bscb expa))]
[':' (stag %ktcl (rune col %bscl exqs))]
['%' (stag %ktcl (rune cen %bscn exqs))]
@ -13856,7 +13856,7 @@
['#' ;~(pfix hax (toad txhx))]
['+' ;~(pfix lus (toad txls))]
['&' (rune pam %wtpd exps)]
['@' ;~(pfix vat (toad tkvt))]
['@' ;~(pfix pat (toad tkvt))]
['~' ;~(pfix sig (toad tksg))]
['!' (rune zap %wtzp expa)]
==
@ -13871,7 +13871,7 @@
[';' (rune mic %zpmc expb)]
['>' (rune ban %zpbn expa)]
['<' (rune led %zpld exqc)]
['@' (rune vat %zpvt expy)]
['@' (rune pat %zpvt expy)]
['=' (rune tis %zpts expa)]
['?' (rune wut %zpwt hinh)]
==

View File

@ -7053,7 +7053,7 @@
[q.a [[p.a r.a] b]]
::
;~ plug
;~(plug htts (punt ;~(sfix urt:ab vat)) thor)
;~(plug htts (punt ;~(sfix urt:ab pat)) thor)
;~(plug ;~(pose apat (easy *pork)) yque)
==
:: :: ++htts:de-purl:html
@ -7079,7 +7079,7 @@
(cook crip (star pquo))
:: :: ++pcar:de-purl:html
++ pcar :: 2396 path char
;~(pose pure pesc psub col vat)
;~(pose pure pesc psub col pat)
:: :: ++pcok:de-purl:html
++ pcok :: cookie char
;~(less bas mic com yel prn)