From 3f7343fdc7877d153c74a592292a26a834ddb4a6 Mon Sep 17 00:00:00 2001 From: Matthew Flatt 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; }