scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

make sure to call CONTAINS-GLOB-EXPRESSION? only for strings

This commit is contained in:
eknauel 2005-08-10 18:33:33 +00:00
parent 3b6c77f553
commit 7ff7ef196b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/std-command.scm
View File

@ -71,7 +71,7 @@
(expand-string/s-expr (command-executable command)) (expand-string/s-expr (command-executable command))
(fold-right (fold-right
(lambda (arg args) (lambda (arg args)
(if (contains-glob-expression? arg) (if (and (string? arg) (contains-glob-expression? arg))
(append (glob-argument arg) args) (append (glob-argument arg) args)
(cons arg args))) (cons arg args)))
'() expanded) '() expanded)