From 1254c54852f2ca1d853563f5657ba4765debc82e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 27 Jun 2010 11:02:26 -0600 Subject: [PATCH] fix compiler bug related to `case-lambda' Closes PR 10987 --- src/racket/src/syntax.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/racket/src/syntax.c b/src/racket/src/syntax.c index 21df40bce4..7c2e3fd76f 100644 --- a/src/racket/src/syntax.c +++ b/src/racket/src/syntax.c @@ -2442,7 +2442,7 @@ case_lambda_shift(Scheme_Object *data, int delta, int after_depth) seq->array[i] = le; } - return data; + return scheme_make_syntax_compiled(CASE_LAMBDA_EXPD, data); } Scheme_Object *scheme_unclose_case_lambda(Scheme_Object *expr, int mode)