From 9b3965f900707ea666b324d1e59860558fe4b2e2 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Wed, 5 Apr 2006 22:18:16 +0000
Subject: [PATCH] typo in list->cblock (PR7990)

svn: r2611
---
 collects/mzlib/foreign.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/mzlib/foreign.ss b/collects/mzlib/foreign.ss
index be6ec76202..c0df3efd87 100644
--- 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))))