Re: [Chicken-users] Birthday present

[Felix]

From: Sven Hartrumpf <address@hidden>
Subject: [Chicken-users] Birthday present
Date: Tue, 20 Jul 2010 14:28:27 +0200 (CEST)

> As a birthday present, here is a nice little bug:
> 
> library.scm contains:
>  ((or (char=? c #\x00) (char=? c #\xff))
>   (##sys#read-error port "attempt to read expression from something that 
> looks like binary data"))
> 
> The second condition is too strict because it forbids to write
> #\ÿ (code 255 in Latin-1) in Chicken programs.
> 

What a nice birthdday present!

Fixed in "master" branch:

diff --git a/library.scm b/library.scm
index 7a3be61..26662c5 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))


cheers,
felix