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

fixed a missing put-mark call in fasl-read.

This commit is contained in:
Abdulaziz Ghuloum 2008-02-18 23:26:54 -05:00
parent f45a74c115
commit 405c7dc9e2
2 changed files with 21 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
scheme/ikarus.fasl.ss
View File

@ -284,21 +284,27 @@
(or (vector-ref marks m) (or (vector-ref marks m)
(error who "uninitialized mark" m)))] (error who "uninitialized mark" m)))]
[(#\l) ;;; list of length <= 255 [(#\l) ;;; list of length <= 255
(let ([n (read-u8 p)]) (let ([ls
(let f ([n n]) (let ([n (read-u8 p)])
(cond (let f ([n n])
[(< n 0) (read)] (cond
[else [(< n 0) (read)]
(let ([x (read)]) [else
(cons x (f (- n 1))))])))] (let ([x (read)])
(cons x (f (- n 1))))])))])
(when m (put-mark m ls))
ls)]
[(#\L) ;;; list of length > 255 [(#\L) ;;; list of length > 255
(let ([n (read-int p)]) (let ([ls
(let f ([n n]) (let ([n (read-int p)])
(cond (let f ([n n])
[(< n 0) (read)] (cond
[else [(< n 0) (read)]
(let ([x (read)]) [else
(cons x (f (- n 1))))])))] (let ([x (read)])
(cons x (f (- n 1))))])))])
(when m (put-mark m ls))
ls)]
[else [else
(die who "Unexpected char as a fasl object header" h)]))) (die who "Unexpected char as a fasl object header" h)])))
(read)) (read))

2
scheme/last-revision
View File

@ -1 +1 @@
1397 1398