checkpoint

This commit is contained in:
Jan Nieuwenhuizen 2018-07-15 21:44:15 +02:00
parent 1f5c82ecae
commit 24c35cc5d9
1 changed files with 4 additions and 1 deletions

View File

@ -142,7 +142,8 @@
filename <-- word
name <-- identifier
identifier <- [_a-zA-Z][_a-zA-Z0-9]*
word <- substitution / assignment / number / variable / delim / literal
oldword <- substitution / assignment / number / variable / delim / literal
word <-- assignment / delim / (substitution / number / variable / literal)+
number <-- [0-9]+
lsubst < '$('
rsubst < ')'
@ -258,4 +259,6 @@
(('if-clause expr then else) `(if-clause ,(transform expr) ,(transform then) ,(transform else)))
(('then-part o ...) `(begin ,@(map transform o)))
(('else-part o ...) `(begin ,@(map transform o)))
(('word o) (transform o))
(('word o ...) `(string-append ,@(map transform o)))
(_ ast)))