~ chicken-core (chicken-5) 9087b4d456293f974ac2e683543cae2b81b404ae

commit 9087b4d456293f974ac2e683543cae2b81b404ae
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Aug 31 11:43:41 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Aug 31 11:43:41 2011 +0200

    handle C-comments in string literals

diff --git a/support.scm b/support.scm
index bd93e4b6..299b92f8 100644
--- a/support.scm
+++ b/support.scm
@@ -139,7 +139,7 @@
 	  '(#\")
 	  (let* ((c (car chars))
 		 (code (char->integer c)) )
-	    (if (or (< code 32) (>= code 127) (memq c '(#\" #\' #\\ #\?)))
+	    (if (or (< code 32) (>= code 127) (memq c '(#\" #\' #\\ #\? #\*)))
 		(append '(#\\)
 			(cond ((< code 8) '(#\0 #\0))
 			      ((< code 64) '(#\0))