From d3cfd4822a439cefa60e160cf930851eecc3fdd1 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 24 Feb 2007 13:54:11 +0000
Subject: [PATCH] fix bug in lifting of a procedure with a single unused rest
 arg

svn: r5685
---
 src/mzscheme/src/fun.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/src/fun.c b/src/mzscheme/src/fun.c
index 75a2eea926..c95e93287b 100644
--- a/src/mzscheme/src/fun.c
+++ b/src/mzscheme/src/fun.c
@@ -1229,7 +1229,8 @@ scheme_resolve_closure_compilation(Scheme_Object *_data, Resolve_Info *info,
   np = num_params = data->num_params;
   if ((data->num_params == 1)
       && (SCHEME_CLOSURE_DATA_FLAGS(data) & CLOS_HAS_REST)
-      && !(cl->local_flags[0] & SCHEME_WAS_USED)) {
+      && !(cl->local_flags[0] & SCHEME_WAS_USED)
+      && !convert) {
     /* (lambda args E) where args is not in E => drop the argument */
     new_info = scheme_resolve_info_extend(info, 0, 1, cl->base_closure_size);
     num_params = 0;