From c56394a0fc7c5fcbab9042c0876ac67ca14086fa Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Wed, 10 Jan 2007 08:27:12 +0000 Subject: [PATCH] fix for PR8480 svn: r5291 --- collects/lazy/force.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/lazy/force.ss b/collects/lazy/force.ss index 4b612573e8..00466a4485 100644 --- a/collects/lazy/force.ss +++ b/collects/lazy/force.ss @@ -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)])