typo in list->cblock (PR7990)

svn: r2611 original commit: 9b3965f900707ea666b324d1e59860558fe4b2e2
2006-04-05 22:18:16 +00:00 · 2006-04-05 22:18:16 +00:00 · b8d5164d65
commit b8d5164d65
parent 815a4b24e1
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))))