Neil Jerram <[EMAIL PROTECTED]> writes:

> With current CVS HEAD:
>
> guile> (string->list (symbol->string (with-input-from-string "hello\r" read)))
> (#\h #\e #\l #\l #\o #\cr)

The following change fixes this for me:

guile> (string->list (symbol->string (with-input-from-string "hello\r" read)))
(#\h #\e #\l #\l #\o)

Can you patch your Guile 1.8.3 and confirm whether it works for you
too?

Regards,
     Neil

--- libguile/read.c     3 Sep 2007 16:58:19 -0000       1.127
+++ libguile/read.c     17 Oct 2007 21:25:02 -0000
@@ -150,7 +150,7 @@
 /* `isblank' is only in C99.  */
 #define CHAR_IS_BLANK_(_chr)                                   \
   (((_chr) == ' ') || ((_chr) == '\t') || ((_chr) == '\n')     \
-   || ((_chr) == '\f'))
+   || ((_chr) == '\f') || ((_chr) == '\r'))
 
 #ifdef MSDOS
 # define CHAR_IS_BLANK(_chr)                   \



_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/guile-devel

Reply via email to