conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixed bug in fasl-reading unicode chars in 64-bit mode.

This commit is contained in:
Abdulaziz Ghuloum 2009-01-03 19:57:19 -05:00
parent f5f6af8bd7
commit 6dca996f3a
3 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/ikarus.fasl.ss
View File

@ -333,7 +333,7 @@
($struct-set! x i (read)) ($struct-set! x i (read))
(f (fxadd1 i)))) (f (fxadd1 i))))
x)))] x)))]
[(#\C) (integer->char (read-int p))] [(#\C) (integer->char (read-u32 p))]
[(#\c) (read-u8-as-char p)] [(#\c) (read-u8-as-char p)]
[(#\>) [(#\>)
(let ([m (read-u32 p)]) (let ([m (read-u32 p)])

2
scheme/last-revision
View File

@ -1 +1 @@
1736 1737

1
scheme/tests/fasl.ss
View File

@ -82,6 +82,7 @@
(hashtable-set! h (gensym) 13) (hashtable-set! h (gensym) 13)
(collect) (collect)
h)) h))
(test '(#\x3000))
) )
) )