up

svn: r10843

collects/web-server/lang/defun.ss

@@ -1,10 +1,11 @@
 #lang scheme/base
 (require (for-template scheme/base)
          syntax/kerncase
+         #;syntax/free-vars
+         "freevars.ss"
          mzlib/list
          mzlib/plt-match
          "util.ss"
-         "freevars.ss"
          "../private/closure.ss")
 (provide defun)
 

collects/web-server/lang/web-param.ss

@@ -53,5 +53,6 @@
   (syntax-case stx ()
     [(_ ([wp ve] ...) e ...)
      (with-syntax ([(v ...) (generate-temporaries (syntax->list #'(ve ...)))])
-       #'(let ([v ve] ...)
-           (web-parameterize/values ([wp v] ...) e ...)))]))
+       (syntax/loc stx
+         (let ([v ve] ...)
+           (web-parameterize/values ([wp v] ...) e ...))))]))