From ae7dab88d3f04a35572be18133380c2632fdc45f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 4 Jun 2009 21:44:20 +0000
Subject: [PATCH] change expansion of application with keyword arguments to use
 quoted lists instead of lifting

svn: r15083
---
 collects/scheme/private/kw.ss | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/collects/scheme/private/kw.ss b/collects/scheme/private/kw.ss
index a9e1a6574e..9f6d979699 100644
--- a/collects/scheme/private/kw.ss
+++ b/collects/scheme/private/kw.ss
@@ -694,14 +694,11 @@
                                             (lambda (a b)
                                               (keyword<? (syntax-e (car a))
                                                          (syntax-e (car b)))))]
-                          [lifted (syntax-local-lift-expression
-                                   #`(list #,@(map (lambda (p) #`(quote #,(car p))) 
-                                                   sorted-kws)))]
                           [cnt (+ 1 (length args))])
                      (quasisyntax/loc stx
                        (let #,(reverse bind-accum)
-                         ((keyword-procedure-extract #,lifted #,cnt #,(car args))
-                          #,lifted
+                         ((keyword-procedure-extract '#,(map car sorted-kws) #,cnt #,(car args))
+                          '#,(map car sorted-kws)
                           (list #,@(map cdr sorted-kws))
                           . #,(cdr args)))))]
                   [(keyword? (syntax-e (car l)))