suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix for an error Galler found

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/web-server/pr/galler.rkt Normal file
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)))))

2
collects/web-server/lang/util.rkt
View File

@ -48,7 +48,7 @@
(list* #'rv (syntax->list #'(v ...)))])) (list* #'rv (syntax->list #'(v ...)))]))
(define ((make-define-case inner) stx) (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) [(define-values (v ...) ve)
(let-values ([(nve) (inner #'ve)]) (let-values ([(nve) (inner #'ve)])
(quasisyntax/loc stx (quasisyntax/loc stx