- fasl reader did not know how to read strings containing unicode

chars, fixed.

scheme/ikarus.fasl.ss

@@ -253,6 +253,16 @@
                      (f (fxadd1 i)))))
                (when m (put-mark m 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
            (let ([str (read)])
              (let ([sym (string->symbol str)])

scheme/last-revision

@@ -1 +1 @@
-1625
+1626

scheme/tests/fasl.ss

@@ -46,6 +46,7 @@
     (test 127487384734.4)
     (test (make-rectangular 12 13))
     (test (make-rectangular 12.0 13.0))
+    (test (string #\x3bb))
     (test-cycle))
 
 )