From c829531a4652b2cf4d4aac1eb0af08c3231bdecf Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Thu, 22 Sep 2011 17:43:36 +0200
Subject: [PATCH] fix alpha-rename for kwargs

* module/language/tree-il/optimize.scm (alpha-rename): Fix
  alpha-renaming of keyword arguments.
---
 module/language/tree-il/optimize.scm | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/module/language/tree-il/optimize.scm b/module/language/tree-il/optimize.scm
index 0cc51a0b9..848b7e92d 100644
--- a/module/language/tree-il/optimize.scm
+++ b/module/language/tree-il/optimize.scm
@@ -65,9 +65,19 @@ references to the new symbols."
                         (append req
                                 (or opt '())
                                 (if rest (list rest) '())
-                                (if kw (map cadr (cdr kw)) '()))))
+                                (match kw
+                                  ((aok? (_ name _) ...) name)
+                                  (_ '())))))
               (mapping (fold vhash-consq mapping gensyms new)))
-         (make-lambda-case src req opt rest kw inits new
+         (make-lambda-case src req opt rest
+                           (match kw
+                             ((aok? (kw name old) ...)
+                              (cons aok? (map list
+                                              kw
+                                              name
+                                              (take-right new (length old)))))
+                             (_ #f))
+                           inits new
                            (loop body mapping)
                            (and alt (loop alt mapping)))))
       (($ <lexical-ref> src name gensym)