~ chicken-core (chicken-5) 081e3b567de635fe17082db94063f0af0c702cf2

commit 081e3b567de635fe17082db94063f0af0c702cf2
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Aug 18 04:34:56 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Aug 18 04:34:56 2010 -0400

    more suitable description for keywords

diff --git a/csi.scm b/csi.scm
index 40be65fa..704cb6cc 100644
--- a/csi.scm
+++ b/csi.scm
@@ -570,11 +570,12 @@ EOF
 	    [(number? x) (fprintf out "number ~S~%" x)]
 	    [(string? x) (descseq "string" ##sys#size string-ref 0)]
 	    [(vector? x) (descseq "vector" ##sys#size ##sys#slot 0)]
+	    ((keyword? x)
+	     (fprintf out "keyword symbol with name ~s~%" 
+	       (##sys#symbol->string x)))
 	    [(symbol? x)
 	     (unless (##sys#symbol-has-toplevel-binding? x)
 	       (display "unbound " out))
-	     (when (and (symbol? x) (fx= 0 (##sys#byte (##sys#slot x 1) 0)))
-	       (display "keyword " out) )
 	     (let ((q (##sys#qualified-symbol? x)))
 	       (fprintf out "~a~asymbol with name ~S~%"
 		 (if (##sys#interned-symbol? x) "" "uninterned ")