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