andrius
/
gash
mirror of https://git.savannah.gnu.org/git/gash.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix 60-function.sh.

This commit is contained in:
Jan Nieuwenhuizen 2018-11-24 11:12:44 +01:00
parent 2df901d337
commit 58d1627b08
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gash/grammar.scm
View File

@ -64,7 +64,7 @@
exclamation <- '!'
pipe < sp* '|' !'|' ws*
command <-- function-def / compound-command / simple-command
command <-- function / compound-command / simple-command
compound-command <- (subshell / brace-group / for-clause / case-clause /
if-clause / while-clause / until-clause) (sp* io-redirect)*
@ -90,9 +90,9 @@
word <-- test / substitution /
(number / variable-subst / variable / delim / literal)+
function-def <-- name sp* lpar rpar# ws* function-body
function <-- name sp* lpar rpar# ws* function-body
name <-- !reserved identifier
function-body <-- brace-group (sp* io-redirect)*
function-body <- brace-group (sp* io-redirect)*
subshell <-- lpar compound rpar#
brace-group <-- lbrace ws* compound rbrace#
@ -278,5 +278,8 @@
(('elif elif ...) (transform `(if-clause ,@elif)))
(('function name body)
`(function ,name (lambda ( . args) ,(transform body))))
((h t ...) (map transform o))
(_ o)))