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

2005-08-10 18:33:33 +00:00 · 2005-08-10 18:33:33 +00:00 · 7ff7ef196b
parent 3b6c77f553
commit 7ff7ef196b
1 changed files with 1 additions and 1 deletions
--- a/scheme/std-command.scm
+++ b/scheme/std-command.scm
@ -71,7 +71,7 @@
     (expand-string/s-expr (command-executable command))
     (fold-right 
      (lambda (arg args)
-	(if (contains-glob-expression? arg)
+	(if (and (string? arg) (contains-glob-expression? arg))
 	    (append (glob-argument arg) args)
 	    (cons arg args)))
      '() expanded)