From 3f7343fdc7877d153c74a592292a26a834ddb4a6 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 21 Sep 2010 13:12:48 -0600
Subject: [PATCH] fix make_external_cptr() to set is-external flag

---
 src/racket/src/salloc.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/racket/src/salloc.c b/src/racket/src/salloc.c
index d54be8a1d1..c26ab87667 100644
--- a/src/racket/src/salloc.c
+++ b/src/racket/src/salloc.c
@@ -526,6 +526,7 @@ Scheme_Object *scheme_make_external_cptr(GC_CAN_IGNORE void *cptr, Scheme_Object
 {
   Scheme_Object *o;
   o = scheme_make_cptr(NULL, typetag);
+  SCHEME_CPTR_FLAGS(o) |= 1;
   SCHEME_CPTR_VAL(o) = cptr;
   return o;
 }
@@ -547,6 +548,7 @@ Scheme_Object *scheme_make_offset_external_cptr(GC_CAN_IGNORE void *cptr, long o
 {
   Scheme_Object *o;
   o = scheme_make_offset_cptr(NULL, offset, typetag);
+  SCHEME_CPTR_FLAGS(o) |= 1;
   SCHEME_CPTR_VAL(o) = cptr;
   return o;
 }