typo in list->cblock (PR7990)

svn: r2611
2006-04-05 22:18:16 +00:00 · 2006-04-05 22:18:16 +00:00 · 9b3965f900
commit 9b3965f900
parent 38f5c8c680
1 changed files with 2 additions and 2 deletions
--- a/collects/mzlib/foreign.ss
+++ b/collects/mzlib/foreign.ss
@ -1463,8 +1463,8 @@
    (if (zero? len)
      #f ; #() => NULL
      (let ([cblock (malloc len type)])
-        (let loop ([i (sub1 len)])
-          (unless (< i 0)
+        (let loop ([i 0])
+          (when (< i len)
            (ptr-set! cblock type i (vector-ref v i))
            (loop (add1 i))))
        cblock))))