~ chicken-core (chicken-5) e90ee86e0dd3ad56ad53916c2e840bd370c452d4

commit e90ee86e0dd3ad56ad53916c2e840bd370c452d4
Author:     felix <felix@z.(none)>
AuthorDate: Fri Feb 25 09:31:52 2011 +0100
Commit:     felix <felix@z.(none)>
CommitDate: Fri Feb 25 09:31:52 2011 +0100

    handle single char vbar in readable print (thanks to zbigniew)

diff --git a/library.scm b/library.scm
index 6152c49a..5760774d 100644
--- a/library.scm
+++ b/library.scm
@@ -3078,7 +3078,7 @@ EOF
 	    (cond ((eq? len 0) #f)
 		  ((eq? len 1)
 		   (let ((c (##core#inline "C_subchar" str 0)))
-		     (cond ((or (eq? #\. c) (eq? #\# c) (eq? #\; c) (eq? #\, c)) #f)
+		     (cond ((or (eq? #\. c) (eq? #\# c) (eq? #\; c) (eq? #\, c) (eq? #\| c)) #f)
 			   ((char-numeric? c) #f)
 			   (else #t))))
 		  (else