From e24bea58dec3c4205d337af2c24696b3aa837c8a Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Thu, 17 Jun 2004 12:01:53 +0000
Subject: [PATCH] .

original commit: e46543dea62ed245518382bb18f1024f1baff8e0
---
 collects/mzlib/foreign.ss | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/collects/mzlib/foreign.ss b/collects/mzlib/foreign.ss
index 1fedecf..21548bf 100644
--- a/collects/mzlib/foreign.ss
+++ b/collects/mzlib/foreign.ss
@@ -645,6 +645,10 @@
   (let ([cblock (malloc len type)])
     (make-cvector cblock type len)))
 
+(provide (rename cvector-args cvector))
+(define (cvector-args type . args)
+  (list->cvector args type))
+
 (define* (cvector-ref v i)
   (if (and (integer? i) (<= 0 i (sub1 (cvector-length v))))
     (ptr-ref (cvector-ptr v) (cvector-type v) i)
@@ -688,8 +692,8 @@
                      [TAGname      name])
          #'(begin
              (define-struct TAG (ptr length))
-             (provide TAG?)
-             (provide TAG-length (rename allocate-TAG make-TAG))
+             (provide TAG? TAG-length)
+             (provide (rename allocate-TAG make-TAG))
              (define (allocate-TAG n . init)
                (let* ([p (malloc n type)]
                       [v (make-TAG p n)])