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

fix pretty-print cycle detection for vectors

Browse Source 
svn: r5228
This commit is contained in:
Matthew Flatt 2007-01-05 07:01:15 +00:00
parent 5c6821ec24
commit 71f0a99be1
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/mzlib/pretty.ss
View File

@ -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)))]