From eddf893dc675e3b173a425c2ffc1c603d72ec216 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 20 Jul 2011 14:08:30 -0600 Subject: [PATCH] fix validation of top-level define-{syntaxes,values-for-syntax} (Only appears in bytecode for non-module code.) Merge to 5.1.2 (cherry picked from commit 0d2b08f0534efa3151a9c9d5430b410f77589a9a) --- src/racket/src/validate.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/racket/src/validate.c b/src/racket/src/validate.c index c1fbbd6374..94595ebde1 100644 --- a/src/racket/src/validate.c +++ b/src/racket/src/validate.c @@ -429,7 +429,7 @@ static void do_define_syntaxes_validate(Scheme_Object *data, Mz_CPort *port, Scheme_Object *name, *val, *base_stack_depth, *dummy; int sdepth; - if (!SCHEME_VECTORP(data) + if (!SAME_TYPE(SCHEME_TYPE(data), (for_stx ? scheme_define_for_syntax_type : scheme_define_syntaxes_type)) || (SCHEME_VEC_SIZE(data) < 4)) scheme_ill_formed_code(port);