Fix for an error Galler found

This commit is contained in:
Jay McCarthy 2012-02-01 17:06:07 -07:00
parent b74ad87160
commit 47d626ee8b
2 changed files with 7 additions and 1 deletions

View File

@ -0,0 +1,6 @@
#lang web-server
(require racket/serialize
rackunit)
(check-true (serializable? (λ (x) x)))
(check-true (serializable? (first (list (λ (x) x)))))

View File

@ -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