fix 01-script-$#.

This commit is contained in:
Jan Nieuwenhuizen 2018-12-02 09:02:10 +01:00
parent d5c94e75dd
commit 1f0a7674d9
2 changed files with 2 additions and 2 deletions

View File

@ -71,7 +71,7 @@
((equal? name "@")
(string-join (cdr (%command-line))))
((equal? name "#")
(number->string (length (%command-line))))
(number->string (length (cdr (%command-line)))))
(else
(or (assoc-ref %global-variables name)
(if (shell-opt? "nounset") (begin

View File

@ -133,7 +133,7 @@
rpar < ')'
bt < [`]
variable <-- dollar ('*' / '@' / [0-9] / name /
variable <-- dollar ('#' / '@' / '*' / [0-9] / name /
lbrace name (variable-literal / &rbrace) rbrace)
variable-subst <- dollar lbrace (variable-or / variable-and / variable-regex) rbrace
variable-or <-- name min variable-word variable-word*