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

typo in list->cblock (PR7990)

Browse Source 
svn: r2611
This commit is contained in:
Eli Barzilay 2006-04-05 22:18:16 +00:00
parent 38f5c8c680
commit 9b3965f900
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/foreign.ss
View File

@ -1463,8 +1463,8 @@
(if (zero? len) (if (zero? len)
#f ; #() => NULL #f ; #() => NULL
(let ([cblock (malloc len type)]) (let ([cblock (malloc len type)])
(let loop ([i (sub1 len)]) (let loop ([i 0])
(unless (< i 0) (when (< i len)
(ptr-set! cblock type i (vector-ref v i)) (ptr-set! cblock type i (vector-ref v i))
(loop (add1 i)))) (loop (add1 i))))
cblock)))) cblock))))