The closure library was designed just for the Web language, which operates after expansion, so it never saw normal lambdas. The documentation, however, advertises it for general use and it disallowed keyword arguments. This fixes that problem.

svn: r17844
2010-01-26 21:59:22 +00:00 · 2010-01-26 21:59:22 +00:00 · 364e4ff3d5
commit 364e4ff3d5
parent 024f635203
1 changed files with 6 additions and 3 deletions
--- a/collects/web-server/lang/closure.ss
+++ b/collects/web-server/lang/closure.ss
@ -78,9 +78,12 @@
                          ; prop-vals:
                          (list (cons prop:serializable #,CLOSURE:serialize-info-id)
                                (cons prop:procedure
-                                      (#%plain-lambda (clsr . args)
-                                                      (let-values ([#,fvars ((CLOSURE-ref clsr 0))])
-                                                        (apply #,stx args)))))
+                                      (make-keyword-procedure
+                                       (lambda (kws kw-vals clsr . rst)
+                                         (let-values ([#,fvars ((CLOSURE-ref clsr 0))])
+                                          (keyword-apply #,stx
+                                                         kws kw-vals
+                                                         rst))))))
                          
                          #f  ; inspector