~ chicken-core (chicken-5) 63dfb62033778197d4a76401cf3530f402016eca

commit 63dfb62033778197d4a76401cf3530f402016eca
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Jul 21 12:06:13 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Jul 21 12:06:13 2010 +0200

    binary-file detection allows #\xff (thanks to Sven Hartrumpf)

diff --git a/library.scm b/library.scm
index 7a3be610..26662c59 100644
--- a/library.scm
+++ b/library.scm
@@ -2347,7 +2347,7 @@ EOF
 			 (char-whitespace? c)
 			 (memq c terminating-characters) )
 		     (##sys#reverse-list->string lst) )
-		    ((or (char=? c #\x00) (char=? c #\xff))
+		    ((char=? c #\x00)
 		     (##sys#read-error port "attempt to read expression from something that looks like binary data"))
 		    (else
 		     (when (char=? c #\/) (set! rat-flag #t))