suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix for PR8480

Browse Source 
svn: r5291
This commit is contained in:
Eli Barzilay 2007-01-10 08:27:12 +00:00
parent f546667d50
commit c56394a0fc
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/lazy/force.ss
View File

@ -57,10 +57,10 @@
(set-car! x (loop (car x)))
(set-cdr! x (loop (cdr x)))]
[(vector? x)
(let loop ([i 0])
(let vloop ([i 0])
(when (< i (vector-length x))
(vector-set! x (loop (vector-ref x i)))
(loop (add1 i))))]
(vector-set! x i (loop (vector-ref x i)))
(vloop (add1 i))))]
[(box? x) (set-box! x (loop (unbox x)))]
[(struct? x)
(let-values ([(type skipped?) (struct-info x)])