urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-20 09:21:42 +03:00
Code Issues Packages Projects Releases Wiki Activity

hoon: fix batch comment parsing for ++ $ arms

Browse Source 
comments for ++  $  arms are set using four aces
This commit is contained in:
drbeefsupreme 2022-06-28 13:29:42 -04:00
parent 8f48f08f1a
commit 77b5c736aa
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
pkg/arvo/sys/hoon.hoon
View File

@ -11652,13 +11652,15 @@
%- stew %- stew
^. stet ^. limo ^. stet ^. limo
:~ :- '|' :~ :- '|'
;~(pfix bar (stag %chat sym)) (stag %chat (ifix [bar cola] sym))
:- '.' :- '.'
;~(pfix dot (stag %frag sym)) (stag %frag (ifix [dot cola] sym))
:- '+' :- '+'
;~(pfix lus (stag %funk sym)) (stag %funk (ifix [lus cola] sym))
:- '$' :- '$'
;~(pfix buc (stag %grog sym)) (stag %grog (ifix [buc cola] sym))
:- ' '
(stag %funk ;~(pfix step (easy *term)))
== ==
++ shot ++ shot
;~(plug ;~(sfix line (just `@`10) (punt gap)) (rant ;~(less tine text))) ;~(plug ;~(sfix line (just `@`10) (punt gap)) (rant ;~(less tine text)))
@ -11668,13 +11670,14 @@
++ code ;~(pfix step step (cook crip (star prn))) :: code line ++ code ;~(pfix step step (cook crip (star prn))) :: code line
++ noel ;~(plug (punt ;~(pfix step hax)) null) :: header padding ++ noel ;~(plug (punt ;~(pfix step hax)) null) :: header padding
++ null (cold ~ (star ace)) :: blank line ++ null (cold ~ (star ace)) :: blank line
++ cola ;~(plug col ace)
++ fine :: definition line ++ fine :: definition line
;~ (glue ;~(plug col ace)) ;~ (glue cola)
sym sym
(cook crip (star prn)) (cook crip (star prn))
== ==
++ tine ++ tine
;~ (glue ;~(plug col ace)) ;~ (glue cola)
dibs dibs
(cook crip (star prn)) (cook crip (star prn))
== ==
@ -11683,7 +11686,7 @@
:: +into: :: and indent to end of line, consuming following space. :: +into: :: and indent to end of line, consuming following space.
:: +indo: :: to end of line, consuming following space. :: +indo: :: to end of line, consuming following space.
:: +exit: :: to end of line, not consuming following space. :: +exit: :: to end of line, not consuming following space.
:: +ingo: :: then consume, followed by col ace :: +ingo: :: then consume
:: ::
++ step ;~(plug ace ace) ++ step ;~(plug ace ace)
++ into |*(bod=rule (indo ;~(pfix step bod))) ++ into |*(bod=rule (indo ;~(pfix step bod)))
@ -11692,7 +11695,7 @@
(ifix [;~(plug col gar) ;~(plug (just `@`10) (punt gap))] bod) (ifix [;~(plug col gar) ;~(plug (just `@`10) (punt gap))] bod)
++ ingo ++ ingo
|* bod=rule |* bod=rule
(ifix [;~(plug col gar step) ;~(plug col ace)] bod) ;~(pfix ;~(plug col gar step) bod)
:: ::
++ exit ++ exit
|* bod=rule |* bod=rule