From ad2792fb85af7110ec9f7c2bee9219afd1cd8f77 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Thu, 18 Dec 2008 06:48:10 +0000
Subject: [PATCH] ctype-basetype now holds: * a symbol naming the type for
 primitive types * a list of ctypes for cstruct types * another ctype for
 user-defined ctypes

svn: r12882

original commit: 6283205982477aec904affbffa8eab57d239dd31
---
 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 8c7ccf7..8737faa 100644
--- a/collects/mzlib/foreign.ss
+++ b/collects/mzlib/foreign.ss
@@ -1500,7 +1500,7 @@
 ;; Used by set-ffi-obj! to get the actual value so it can be kept around
 (define (get-lowlevel-object x type)
   (let ([basetype (ctype-basetype type)])
-    (if basetype
+    (if (ctype? basetype)
       (let ([s->c (ctype-scheme->c type)])
         (get-lowlevel-object (if s->c (s->c x) x) basetype))
       (values x type))))