From 71f0a99be13a92b3b1ab0396c63c03843bd15a6b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 5 Jan 2007 07:01:15 +0000 Subject: [PATCH] fix pretty-print cycle detection for vectors svn: r5228 --- collects/mzlib/pretty.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/mzlib/pretty.ss b/collects/mzlib/pretty.ss index 79200c3c3b..bfb59e0aea 100644 --- a/collects/mzlib/pretty.ss +++ b/collects/mzlib/pretty.ss @@ -424,11 +424,11 @@ (cond [(vector? obj) (let ([len (vector-length obj)]) - (let loop ([i 0]) + (let vloop ([i 0]) (if (= i len) #f - (or (vector-ref obj i) - (loop (add1 i))))))] + (or (loop (vector-ref obj i)) + (vloop (add1 i))))))] [(pair? obj) (or (loop (car obj)) (loop (cdr obj)))]