~ chicken-core (chicken-5) d71cf43e0e46fbe3a9c4b9863d27a0abb2625c0d

commit d71cf43e0e46fbe3a9c4b9863d27a0abb2625c0d
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Jun 30 09:14:41 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Jun 30 09:14:41 2010 +0200

    added test for #277

diff --git a/tests/syntax-tests.scm b/tests/syntax-tests.scm
index a052a619..5729481c 100644
--- a/tests/syntax-tests.scm
+++ b/tests/syntax-tests.scm
@@ -447,3 +447,16 @@
 (s:define-syntax s:define-syntax (syntax-rules ()))
 )
 |#
+
+
+;;; renaming of keyword argument (#277)
+
+(define-syntax foo1
+  (syntax-rules ()
+    ((_ procname)
+     (define (procname #!key (who "world"))
+       (string-append "hello, " who)))))
+
+(foo1 bar)
+
+(assert (string=? "hello, XXX" (bar who: "XXX")))