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

Fixes PR12638

Browse Source
This commit is contained in:
Jay McCarthy 2012-03-16 11:30:35 -06:00
parent 9be864b2f8
commit a55029cf76
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/tests/web-server/pr/12638.rkt Normal file
View File

@ -0,0 +1,3 @@
#lang web-server
(require racket/runtime-path)
(define-runtime-path here ".")

4
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 #%require) (syntax-case stx (define-values define-syntaxes define-values-for-syntax #%require begin-for-syntax)
[(define-values (v ...) ve) [(define-values (v ...) ve)
(let-values ([(nve) (inner #'ve)]) (let-values ([(nve) (inner #'ve)])
(quasisyntax/loc stx (quasisyntax/loc stx
@ -57,6 +57,8 @@
stx] stx]
[(define-values-for-syntax (v ...) ve) [(define-values-for-syntax (v ...) ve)
stx] stx]
[(begin-for-syntax e ...)
stx]
[(#%require spec ...) [(#%require spec ...)
stx] stx]
[expr [expr