ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-13 08:38:43 +03:00
Code Issues Packages Projects Releases Wiki Activity

%zpwt, language version gating.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-01-04 17:15:52 -08:00
parent 9136204453
commit e122c912d2
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
arvo/hoon.hoon
View File

@ -282,6 +282,7 @@
[%zpgr p=twig] ::
[%zpsm p=twig q=twig] ::
[%zpts p=twig] ::
[%zpwt p=$|(p=@ [p=@ q=@]) q=twig] ::
[%zpzp ~] ::
== ::
++ tine (list ,[p=tile q=twig]) ::
@ -4808,6 +4809,13 @@
::
[%zpcb *] q.gen
[%zpgr *] [%zpsm [%bctr [%herb [%cnbc %abel]]] p.gen]
[%zpwt *]
?: ?: ?=(@ p.gen)
(lte stub p.gen)
&((lte stub p.p.gen) (gte stub q.p.gen))
q.gen
~|([%stub-fail stub p.gen] !!)
::
* gen
==
::
@ -6990,6 +6998,7 @@
['^' ;~(pfix ket (cook prey (toad exps)))]
['>' (rune gar %zpgr expa)]
['=' (rune tis %zpts expa)]
['?' (rune wut %zpwt hinh)]
==
==
==
@ -7093,7 +7102,6 @@
++ expi |.((butt ;~(gunk loaf hank)))
++ expj |.(;~(gunk sym rope loaf))
++ expk |.(;~(gunk loaf ;~(plug loaf (easy ~))))
++ expl |.(;~(gunk (butt rack) loaf))
++ expm |.((butt ;~(gunk rope loaf rick)))
++ expn |.((stag %cltr (butt hank)))
++ expo |.(;~(gunk lobe loaf))
@ -7132,6 +7140,14 @@
sym
==
==
++ hinh |.
;~ gunk
;~ pose
dem
(ifix [sel ser] ;~(plug dem ;~(pfix ace dem)))
==
loaf
==
++ bont ;~ (bend)
;~(pfix cen sym)
;~(pfix dot ;~(pose wide ;~(pfix muck loaf)))