~ chicken-core (chicken-5) 9dc839e4acadb20e8d6fb24fdf02cd737e38c5aa

commit 9dc839e4acadb20e8d6fb24fdf02cd737e38c5aa
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Dec 11 17:02:01 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Dec 11 17:05:00 2011 +0100

    escaped symbol -d0 that is (incorrectly) parsed as a number on irix because strtod seems to accept it as legal number syntax (found by andy)

diff --git a/csc.scm b/csc.scm
index b5da715a..88992cae 100644
--- a/csc.scm
+++ b/csc.scm
@@ -679,9 +679,9 @@ EOF
 		(when (memq (build-platform) '(mingw32 cygwin gnu clang))
 		  (set! compile-options 
 		    (cons* "-O3" "-fomit-frame-pointer" compile-options)) ) ]
-	       [(-d0) (set! rest (cons* "-debug-level" "0" rest))]
-	       [(-d1) (set! rest (cons* "-debug-level" "1" rest))]
-	       [(-d2) (set! rest (cons* "-debug-level" "2" rest))]
+	       [(|-d0|) (set! rest (cons* "-debug-level" "0" rest))]
+	       [(|-d1|) (set! rest (cons* "-debug-level" "1" rest))]
+	       [(|-d2|) (set! rest (cons* "-debug-level" "2" rest))]
 	       [(-dry-run) 
 		(set! verbose #t)
 		(set! dry-run #t)]