~ chicken-core (chicken-5) 84c7f88378497f6ffa087e704883738730acaf2a

commit 84c7f88378497f6ffa087e704883738730acaf2a
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Aug 13 03:04:35 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Aug 13 03:04:35 2010 -0400

    single-digit sym was not print readably (thanks to zbigniew)

diff --git a/library.scm b/library.scm
index 656bfd0e..f28e7d91 100644
--- a/library.scm
+++ b/library.scm
@@ -2835,9 +2835,10 @@ EOF
 	  (let ((len (##sys#size str)))
 	    (cond ((eq? len 0) #f)
 		  ((eq? len 1)
-		   (case (##core#inline "C_subchar" str 0)
-		     ((#\. #\#) #f)
-		     (else #t) ) )
+		   (let ((c (##core#inline "C_subchar" str 0)))
+		     (cond ((or (eq? #\. c) (eq? #\# c)) #f)
+			   ((char-numeric? c) #f)
+			   (else #t))))
 		  (else
 		   (let loop ((i (fx- len 1)))
 		     (if (eq? i 0)