From f048f23ade2668f1420bf1dd0703da3145c6d474 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 23 Mar 2018 16:52:12 -0600
Subject: [PATCH] schemify: fix problem with inlining

Recently added support for inlining functions with a "rest" arg
exposed a problem in constructing an inlining environment.
---
 racket/src/schemify/inline.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/schemify/inline.rkt b/racket/src/schemify/inline.rkt
index 8bfe5d2d6c..c9346b35d7 100644
--- a/racket/src/schemify/inline.rkt
+++ b/racket/src/schemify/inline.rkt
@@ -99,7 +99,7 @@
                (loop (wrap-cdr args)))]
         [else
          (define u (unwrap args))
-         (list (cons u (gensym u)))])))
+         (cons (cons u (gensym u)) base-env)])))
   (values (let loop ([args args] [env env])
             (cond
               [(wrap-null? args) '()]