Fixing PR12658

2012-03-29 16:06:32 -06:00 · 2012-03-29 16:06:32 -06:00 · 1fd8865e23
commit 1fd8865e23
parent 13e36fbec4
3 changed files with 18 additions and 1 deletions
--- a/collects/tests/web-server/pr/12658-mod.rkt
+++ b/collects/tests/web-server/pr/12658-mod.rkt
@ -0,0 +1,6 @@
+#lang web-server
+
+(define (go)
+  42)
+
+(provide go)
--- a/collects/tests/web-server/pr/12658.rkt
+++ b/collects/tests/web-server/pr/12658.rkt
@ -0,0 +1,11 @@
+#lang racket/base
+(require rackunit
+         "12658-mod.rkt")
+
+(check-equal?
+ (with-handlers ([exn? (λ (x) (exn-message x))])
+   (go 42)
+   (error 'go "Failed to throw exn"))
+ "procedure go: expects no arguments, given 1: 42")
+
+
--- a/collects/web-server/lang/closure.rkt
+++ b/collects/web-server/lang/closure.rkt
@ -82,7 +82,7 @@
                                      (make-keyword-procedure
                                       (lambda (kws kw-vals clsr . rst)
                                         (let-values ([#,fvars ((CLOSURE-ref clsr 0))])
-                                          (keyword-apply #,stx
+                                          (keyword-apply (procedure-rename #,stx '#,(syntax-local-name))
                                                         kws kw-vals
                                                         rst))))))