.

original commit: 63cdc235afd35d1f5a4ca6452764697a2cc5c378
2005-04-02 02:25:29 +00:00 · 2005-04-02 02:25:29 +00:00 · 0b39291dbd
commit 0b39291dbd
parent a11e7fdb08
1 changed files with 2 additions and 2 deletions
--- a/collects/mzlib/foreign.ss
+++ b/collects/mzlib/foreign.ss
@ -999,9 +999,9 @@
                  (provide TAG? TAG-length)
                  (provide (rename allocate-TAG make-TAG))
                  (define (allocate-TAG n . init)
-                    (let* ([p (malloc n type)]
+                    (let* ([p (if (eq? n 0) #f (malloc n type))]
                           [v (make-TAG p n)])
-                      (when (pair? init)
+                      (when (and p (pair? init))
                        (let ([init (car init)])
                          (let loop ([i (sub1 n)])
                            (unless (< i 0)