Fix for an error Galler found
This commit is contained in:
parent
b74ad87160
commit
47d626ee8b
6
collects/tests/web-server/pr/galler.rkt
Normal file
6
collects/tests/web-server/pr/galler.rkt
Normal file
|
@ -0,0 +1,6 @@
|
|||
#lang web-server
|
||||
(require racket/serialize
|
||||
rackunit)
|
||||
|
||||
(check-true (serializable? (λ (x) x)))
|
||||
(check-true (serializable? (first (list (λ (x) x)))))
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user