From 258c569afe84a8d9a06bd5edf760f8adfc79caaf Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Sun, 20 Jul 2008 16:12:08 +0000 Subject: [PATCH] up svn: r10843 --- collects/web-server/lang/defun.ss | 3 ++- collects/web-server/lang/web-param.ss | 5 +++-- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/web-server/lang/defun.ss b/collects/web-server/lang/defun.ss index 57ed08b943..3c4127b889 100644 --- a/collects/web-server/lang/defun.ss +++ b/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) diff --git a/collects/web-server/lang/web-param.ss b/collects/web-server/lang/web-param.ss index 35aeedb45c..f98ac98b15 100644 --- a/collects/web-server/lang/web-param.ss +++ b/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 ...))))]))