From 47d626ee8bb4b7e4fb0b6f328a0431330193b246 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Wed, 1 Feb 2012 17:06:07 -0700 Subject: [PATCH] Fix for an error Galler found --- collects/tests/web-server/pr/galler.rkt | 6 ++++++ collects/web-server/lang/util.rkt | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) create mode 100644 collects/tests/web-server/pr/galler.rkt diff --git a/collects/tests/web-server/pr/galler.rkt b/collects/tests/web-server/pr/galler.rkt new file mode 100644 index 0000000000..fe24e2e438 --- /dev/null +++ b/collects/tests/web-server/pr/galler.rkt @@ -0,0 +1,6 @@ +#lang web-server +(require racket/serialize + rackunit) + +(check-true (serializable? (λ (x) x))) +(check-true (serializable? (first (list (λ (x) x))))) diff --git a/collects/web-server/lang/util.rkt b/collects/web-server/lang/util.rkt index 148e891257..e184e14feb 100644 --- a/collects/web-server/lang/util.rkt +++ b/collects/web-server/lang/util.rkt @@ -48,7 +48,7 @@ (list* #'rv (syntax->list #'(v ...)))])) (define ((make-define-case inner) stx) - (syntax-case stx (define-values define-syntaxes define-values-for-syntax) + (syntax-case stx (define-values define-syntaxes define-values-for-syntax #%require) [(define-values (v ...) ve) (let-values ([(nve) (inner #'ve)]) (quasisyntax/loc stx