From 6dca996f3afd63f118f835ffa0ab67e6663a5da6 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Sat, 3 Jan 2009 19:57:19 -0500 Subject: [PATCH] fixed bug in fasl-reading unicode chars in 64-bit mode. --- scheme/ikarus.fasl.ss | 2 +- scheme/last-revision | 2 +- scheme/tests/fasl.ss | 1 + 3 files changed, 3 insertions(+), 2 deletions(-) diff --git a/scheme/ikarus.fasl.ss b/scheme/ikarus.fasl.ss index 77d46e2..4a6ed3f 100644 --- a/scheme/ikarus.fasl.ss +++ b/scheme/ikarus.fasl.ss @@ -333,7 +333,7 @@ ($struct-set! x i (read)) (f (fxadd1 i)))) x)))] - [(#\C) (integer->char (read-int p))] + [(#\C) (integer->char (read-u32 p))] [(#\c) (read-u8-as-char p)] [(#\>) (let ([m (read-u32 p)]) diff --git a/scheme/last-revision b/scheme/last-revision index 8d937ef..173a668 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1736 +1737 diff --git a/scheme/tests/fasl.ss b/scheme/tests/fasl.ss index 0875ce4..de15408 100644 --- a/scheme/tests/fasl.ss +++ b/scheme/tests/fasl.ss @@ -82,6 +82,7 @@ (hashtable-set! h (gensym) 13) (collect) h)) + (test '(#\x3000)) ) )