~ chicken-core (chicken-5) 680f1f4b3d934a348f171c27a01e3a8fe0ec497c

commit 680f1f4b3d934a348f171c27a01e3a8fe0ec497c
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Jan 8 11:24:11 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Jan 8 11:24:11 2011 +0100

    csc quoted translation-options twice

diff --git a/csc.scm b/csc.scm
index 2bccfead..b3d32ad0 100644
--- a/csc.scm
+++ b/csc.scm
@@ -724,7 +724,7 @@ EOF
 		       (check s rest)
 		       (let* ((n (car rest))
 			      (ns (string->number n)) )
-			 (t-options arg (qs n))
+			 (t-options arg n)
 			 (set! rest (cdr rest)) ) ]
 		      [(and (> (string-length arg) 2) (string=? "-:" (substring arg 0 2)))
 		       (t-options arg) ]