From 391adfcd3a7710a75a20db2b5ca08b73cfe64582 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 1 Dec 2010 11:10:38 -0700 Subject: [PATCH] fix chaperone bug in `checked-procedure-check-and-extract' --- src/racket/src/struct.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/racket/src/struct.c b/src/racket/src/struct.c index 4f82cb1f5c..7209922a7f 100644 --- a/src/racket/src/struct.c +++ b/src/racket/src/struct.c @@ -1754,7 +1754,8 @@ Scheme_Object *scheme_extract_checked_procedure(int argc, Scheme_Object **argv) return NULL; } - if (SCHEME_CHAPERONE_STRUCTP(v) && scheme_is_struct_instance((Scheme_Object *)stype, v)) { + /* let chaperones use the slow path, for now */ + if (SCHEME_STRUCTP(v) && scheme_is_struct_instance((Scheme_Object *)stype, v)) { checker = ((Scheme_Structure *)v)->slots[0]; proc = ((Scheme_Structure *)v)->slots[1];