mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-24 07:26:51 +03:00
hoon: support ? and ~ in typed paths properly
This commit is contained in:
parent
77091d53d4
commit
c977486f71
@ -11756,7 +11756,7 @@
|
|||||||
(stag %clsg (more fas stem))
|
(stag %clsg (more fas stem))
|
||||||
==
|
==
|
||||||
::
|
::
|
||||||
++ stem !:
|
++ stem
|
||||||
%+ knee *hoon |. ~+
|
%+ knee *hoon |. ~+
|
||||||
%+ cook
|
%+ cook
|
||||||
|= iota=$%([%hoon =hoon] iota)
|
|= iota=$%([%hoon =hoon] iota)
|
||||||
@ -11773,7 +11773,7 @@
|
|||||||
:- '$' (cold %$ buc)
|
:- '$' (cold %$ buc)
|
||||||
:- '0'^'9' (slot bisk:so)
|
:- '0'^'9' (slot bisk:so)
|
||||||
:- '-' (slot tash:so)
|
:- '-' (slot tash:so)
|
||||||
:- '.' zust:so
|
:- '.' ;~(pfix dot zust:so)
|
||||||
:- '~' (slot ;~(pfix sig ;~(pose crub:so (easy [%n ~]))))
|
:- '~' (slot ;~(pfix sig ;~(pose crub:so (easy [%n ~]))))
|
||||||
:- '\'' (stag %t qut)
|
:- '\'' (stag %t qut)
|
||||||
:- '[' (slip (ifix [sel ser] wide))
|
:- '[' (slip (ifix [sel ser] wide))
|
||||||
@ -13141,7 +13141,12 @@
|
|||||||
^- spec
|
^- spec
|
||||||
:+ %bccl
|
:+ %bccl
|
||||||
[%leaf %tas aura]
|
[%leaf %tas aura]
|
||||||
[%bcts term [%base %atom aura]]~
|
:_ ~
|
||||||
|
:+ %bcts term
|
||||||
|
?+ aura [%base %atom aura]
|
||||||
|
%f [%base %flag]
|
||||||
|
%n [%base %null]
|
||||||
|
==
|
||||||
;~(plug sym ;~(pfix tis pat mota))
|
;~(plug sym ;~(pfix tis pat mota))
|
||||||
::
|
::
|
||||||
:: /constant
|
:: /constant
|
||||||
@ -13159,12 +13164,19 @@
|
|||||||
[%leaf %tas aura]
|
[%leaf %tas aura]
|
||||||
[%base %atom aura]~
|
[%base %atom aura]~
|
||||||
;~(pfix pat mota)
|
;~(pfix pat mota)
|
||||||
|
::
|
||||||
|
:: /?
|
||||||
|
::
|
||||||
|
:- '?'
|
||||||
|
(cold [%bccl [%leaf %tas %f] [%base %flag] ~] wut)
|
||||||
::
|
::
|
||||||
:: /~
|
:: /~
|
||||||
::
|
::
|
||||||
:- '~'
|
:- '~'
|
||||||
(cold [%bccl [%leaf %tas %n] [%base %null] ~] sig)
|
(cold [%bccl [%leaf %tas %n] [%base %null] ~] sig)
|
||||||
==
|
==
|
||||||
|
::
|
||||||
|
:: open-ended or fixed-length
|
||||||
::
|
::
|
||||||
;~ pose
|
;~ pose
|
||||||
(cold [%base %noun] ;~(plug fas tar))
|
(cold [%base %noun] ;~(plug fas tar))
|
||||||
|
Loading…
Reference in New Issue
Block a user