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)
(error who "uninitialized mark" m)))]
[(#\l) ;;; list of length <= 255
(let ([n (read-u8 p)])
(let f ([n n])
(cond
[(< n 0) (read)]
[else
(let ([x (read)])
(cons x (f (- n 1))))])))]
(let ([ls
(let ([n (read-u8 p)])
(let f ([n n])
(cond
[(< n 0) (read)]
[else
(let ([x (read)])
(cons x (f (- n 1))))])))])
(when m (put-mark m ls))
ls)]
[(#\L) ;;; list of length > 255
(let ([n (read-int p)])
(let f ([n n])
(cond
[(< n 0) (read)]
[else
(let ([x (read)])
(cons x (f (- n 1))))])))]
(let ([ls
(let ([n (read-int p)])
(let f ([n n])
(cond
[(< n 0) (read)]
[else
(let ([x (read)])
(cons x (f (- n 1))))])))])
(when m (put-mark m ls))
ls)]
[else
(die who "Unexpected char as a fasl object header" h)])))
(read))

2
scheme/last-revision
View File

@ -1 +1 @@
1397
1398