From f07803c3cdb52f084f232c3d2b9c70e36e338c49 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 12 Jan 2009 22:16:08 +0000
Subject: [PATCH] fix lifting bug introduced in previous commit

svn: r13079
---
 src/mzscheme/src/eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/eval.c b/src/mzscheme/src/eval.c
index 2fc414ca14..17d1ae7b7b 100644
--- a/src/mzscheme/src/eval.c
+++ b/src/mzscheme/src/eval.c
@@ -5039,7 +5039,7 @@ static void *compile_k(void)
 	rl = scheme_frame_get_require_lifts(cenv);
 	if (!SCHEME_NULLP(l)
             || !SCHEME_NULLP(rl)) {
-          l = scheme_append(rl, l);
+          rl = scheme_append(rl, l);
           rl = icons(scheme_datum_to_syntax(begin_symbol, scheme_false, scheme_sys_wraps(cenv), 0, 0),
                      rl);
           form = scheme_datum_to_syntax(rl, scheme_false, scheme_false, 0, 0);