ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-17 11:51:32 +03:00
Code Issues Packages Projects Releases Wiki Activity

Now with keywords.

Browse Source
This commit is contained in:
C. Guy Yarvin 2016-02-05 03:47:21 -08:00
parent ed2269120c
commit b0fd655914
1 changed files with 105 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

113
arvo/hoon.hoon
View File

@ -9746,14 +9746,107 @@
==
:- ':'
;~ pfix col
%- stew
^. stet ^. limo
:~ ['_' (rune cab %bud expb)]
['^' (rune ket %qua expd)]
['+' (rune lus %tri expc)]
['-' (rune hep %dub expb)]
['~' (rune sig %ray exps)]
['*' (rune tar %all exps)]
;~ pose
%- stew
^. stet ^. limo
:~ ['_' (rune cab %bud expb)]
['^' (rune ket %qua expd)]
['+' (rune lus %tri expc)]
['-' (rune hep %dub expb)]
['~' (rune sig %ray exps)]
['*' (rune tar %all exps)]
==
::
(word %door expr)
(word %core expe)
(word %gasp expb)
(word %trap expa)
(word %door expr)
(word %loop expa)
(word %cork expr)
(word %port expb)
(word %lock expb)
(word %lamp expb)
(word %tray expa)
::
(word %flap expb)
(word %slug expa)
(word %rack exps)
(word %book exps)
(word %bush expb)
(word %gate expb)
(word %coat expg)
(word %pick exps)
::
(word %keep exph)
(word %lace expb)
(word %quid expd)
(word %quip expc)
(word %call expk)
(word %with expu)
(word %bake expm)
(word %make exph)
::
(word %bud expb)
(word %qua expd)
(word %tri expc)
(word %dub expb)
(word %ray exps)
(word %all exps)
::
(word %bump expa)
(word %kick expb)
(word %same expb)
(word %deep expa)
(word %wish expx)
(word %wish expx)
::
(word %iron expa)
(word %ward expb)
(word %cast expb)
(word %like expb)
(word %zinc expa)
(word %burn expa)
(word %name expg)
(word %lead expa)
::
(word %fate expb)
(word %live expg)
(word %lurk expb)
(word %fast hind)
(word %funk hine)
(word %thin hinb)
(word %hint hinb)
(word %memo hinc)
(word %show hinf)
(word %warn hing)
(word %germ expb)
(word %type expb)
::
(word %wad expi)
(word %nub expa)
(word %dip expi)
(word %fry expb)
::
(word %or exps)
(word %if expc)
(word %lest expc)
(word %nay expb)
(word %aye expb)
;~(pfix (jest %case) (toad tkhp))
;~(pfix (jest %dig) (toad tkkt))
;~(pfix (jest %fit) (toad tkts))
;~(pfix (jest %deal) (toad tkls))
(word %and exps)
;~(pfix (jest %dab) (toad tkpt))
;~(pfix (jest %non) (toad tksg))
(word %not expa)
::
(word %twig expb)
(word %spit expb)
(word %wrap expa)
(word %nock expa)
(word %need hinh)
==
==
:- '.'
@ -9897,6 +9990,10 @@
|* {dif/rule tuq/* har/_expa}
;~(pfix dif (stag tuq (toad har)))
::
++ word :: build keyword
|* {key/cord har/_expa}
;~(pfix (jest key) (stag key (toad har)))
::
++ glop ~+((glue mash)) :: separated by space
++ gunk ~+((glue muck)) :: separated list
++ butt |* zor/rule :: closing == if tall