~ chicken-core (chicken-5) 806bdb60d143712646a07ae891101a11a1511ab6

commit 806bdb60d143712646a07ae891101a11a1511ab6
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Dec 18 13:54:28 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Dec 18 13:54:28 2010 +0100

    quoting crap

diff --git a/csc.scm b/csc.scm
index d74247a8..5b0300a0 100644
--- a/csc.scm
+++ b/csc.scm
@@ -743,7 +743,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) ]
@@ -1014,7 +1014,7 @@ EOF
 
 ;;; Helper procedures:
 
-(define-constant +hairy-chars+ '(#\\ #\#))
+(define-constant +hairy-chars+ '(#\\ #\# #\$ #\?))
 
 (define (cleanup s)
   (let* ((q #f)