From 4828f4378a487bae8f1a811259d76e2d1dd8880b Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Thu, 17 Jun 2004 13:17:28 +0000
Subject: [PATCH] .

original commit: 5024d2fd9892283bae33d664a2a7845f2e9b14c0
---
 collects/mzlib/foreign.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/foreign.ss b/collects/mzlib/foreign.ss
index 3daf4be..5c57d49 100644
--- a/collects/mzlib/foreign.ss
+++ b/collects/mzlib/foreign.ss
@@ -876,8 +876,8 @@
                            [(types) (list stype ...)]
                            [(offset ...) (apply values
                                                 (compute-offsets types))])
+               (define-cpointer-type _TYPE)
                (define _TYPE* (_cpointer TYPE-tag (make-cstruct-type types)))
-               (define-cpointer-tag _TYPE)
                (values _TYPE* _TYPE TYPE? TYPE-tag
                        (lambda (slot ...)
                          (let ([block (malloc _TYPE*)])