- fasl reader did not know how to read strings containing unicode
chars, fixed.
This commit is contained in:
parent
afa61cc1a7
commit
fd567eb0c6
|
@ -253,6 +253,16 @@
|
||||||
(f (fxadd1 i)))))
|
(f (fxadd1 i)))))
|
||||||
(when m (put-mark m str))
|
(when m (put-mark m str))
|
||||||
str))]
|
str))]
|
||||||
|
[(#\S) ;;; unicode string
|
||||||
|
(let ([n (read-int p)])
|
||||||
|
(let ([str (make-string n)])
|
||||||
|
(let f ([i 0])
|
||||||
|
(unless (fx= i n)
|
||||||
|
(let ([c (integer->char (read-int p))])
|
||||||
|
(string-set! str i c)
|
||||||
|
(f (fxadd1 i)))))
|
||||||
|
(when m (put-mark m str))
|
||||||
|
str))]
|
||||||
[(#\M) ;;; symbol
|
[(#\M) ;;; symbol
|
||||||
(let ([str (read)])
|
(let ([str (read)])
|
||||||
(let ([sym (string->symbol str)])
|
(let ([sym (string->symbol str)])
|
||||||
|
|
|
@ -1 +1 @@
|
||||||
1625
|
1626
|
||||||
|
|
|
@ -46,6 +46,7 @@
|
||||||
(test 127487384734.4)
|
(test 127487384734.4)
|
||||||
(test (make-rectangular 12 13))
|
(test (make-rectangular 12 13))
|
||||||
(test (make-rectangular 12.0 13.0))
|
(test (make-rectangular 12.0 13.0))
|
||||||
|
(test (string #\x3bb))
|
||||||
(test-cycle))
|
(test-cycle))
|
||||||
|
|
||||||
)
|
)
|
||||||
|
|
Loading…
Reference in New Issue