~ chicken-core (chicken-5) 05fac72d26dcf5cf6fdf9e67835168d1c1e40630

commit 05fac72d26dcf5cf6fdf9e67835168d1c1e40630
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Dec 17 08:02:32 2010 -0500
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Dec 17 08:02:32 2010 -0500

    csc qs's argument to complex chicken options

diff --git a/csc.scm b/csc.scm
index a75d0998..692567f4 100644
--- a/csc.scm
+++ b/csc.scm
@@ -742,9 +742,9 @@ EOF
 		      [(memq s simple-options) (t-options arg)]
 		      [(memq s complex-options) 
 		       (check s rest)
-		       (let* ([n (car rest)]
-			      [ns (string->number n)] )
-			 (t-options arg n)
+		       (let* ((n (car rest))
+			      (ns (string->number n)) )
+			 (t-options arg (qs n))
 			 (set! rest (cdr rest)) ) ]
 		      [(and (> (string-length arg) 2) (string=? "-:" (substring arg 0 2)))
 		       (t-options arg) ]
diff --git a/utils.scm b/utils.scm
index 8e4d8b08..882cb524 100644
--- a/utils.scm
+++ b/utils.scm
@@ -69,7 +69,7 @@
 	  (map (lambda (c)
 		 (if (or (char-whitespace? c)
 			 (memq c '(#\# #\" #\' #\` #\� #\~ #\& #\% #\$ #\! #\* #\; #\< #\> #\\
-				   #\( #\) #\[ #\] #\{ #\})))
+				   #\( #\) #\[ #\] #\{ #\} #\?)))
 		     (string #\\ c)
 		     (string c)))
 	       (string->list str)))))))