urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-14 11:08:45 +03:00
Code Issues Packages Projects Releases Wiki Activity

Require space before hoon literals

Browse Source
This commit is contained in:
Fang 2017-07-31 15:04:44 -07:00
parent be4f22d20c
commit 827d091a60
1 changed files with 29 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
gen/cram.hoon
View File

@ -757,13 +757,10 @@
[i.los $(los +.los)]
::
++ word :: flow parser
%+ knee *graf |. ~+
%+ knee *(list graf) |. ~+
%+ cook |=(a/?(graf (list graf)) ?+(a a {@ *} [a]~))
;~ pose
::
:: whitespace
::
(stag %text (cold " " whit))
::
:: ordinary word
::
(stag %text ;~(plug ;~(pose low hig) (star ;~(pose nud low hig hep))))
@ -788,10 +785,6 @@
::
(stag %code (ifix [tec tec] (cash tec)))
::
:: #twig
::
(stag %code ;~(pfix hax (echo wide:vast)))
::
:: ++arm
::
(stag %code ;~(plug lus lus low (star ;~(pose nud low hep))))
@ -804,7 +797,18 @@
(ifix [pel per] (cash per))
==
::
:: #twig
::
;~ plug
(stag %text (cold " " whit))
(stag %code ;~(pfix hax (echo wide:vast)))
(easy ~)
==
::
:: direct hoon constant
::
;~ plug
(stag %text (cold " " whit))
::
%+ stag %code
%- echo
@ -815,6 +819,13 @@
;~(pfix sig ;~(pose twid:so (easy [%$ %n 0])))
;~(pfix cen ;~(pose sym buc pam bar qut nuck:so))
==
::
(easy ~)
==
::
:: whitespace
::
(stag %text (cold " " whit))
::
:: {interpolated} sail
::
@ -825,7 +836,7 @@
(stag %text (cook trip ;~(less ace prn)))
==
::
++ work (star word) :: indefinite flow
++ work (cook zing (star word)) :: indefinite flow
::
++ down :: parse inline flow
%+ knee *flow |. ~+