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

Fixing pr11214

Browse Source
This commit is contained in:
Jay McCarthy 2010-09-16 12:30:21 -06:00
parent 3498ac8744
commit 1f4c525245
2 changed files with 27 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
collects/tests/web-server/lang-test.rkt
View File

@ -40,6 +40,32 @@
(+ f initial)))))])
(check = 8 (test-m00.4 '(dispatch-start start 1)))))
(test-case
"Embedded Definitions"
(let-values ([(test-m00.4)
(make-module-eval
(module m00.4 (lib "lang.rkt" "web-server")
(provide start)
(define (start initial)
(define m 7)
(define f m)
(+ f initial))))])
(check = 8 (test-m00.4 '(dispatch-start start 1)))))
(test-case
"Embedded Definitions + Intermixed expressions"
(let-values ([(test-m00.4)
(make-module-eval
(module m00.4 (lib "lang.rkt" "web-server")
(provide start)
(define (start initial)
(define m 7)
(+ m 13)
(define f m)
(+ f initial))))])
(check = 8 (test-m00.4 '(dispatch-start start 1)))))
(test-case
"start-interaction in argument position of a function call"
(let-values ([(test-m00.3)

4
collects/web-server/lang/anormal.rkt
View File

@ -38,7 +38,7 @@
(kernel-syntax-case
stx (transformer?)
[(begin)
(anormal ctxt (syntax/loc stx (#%plain-app (#%top . void))))]
(anormal ctxt (syntax/loc stx (#%plain-app void)))]
[(begin lbe)
(anormal ctxt (syntax/loc stx lbe))]
[(begin fbe be ...)
@ -48,8 +48,6 @@
(#%plain-lambda () fbe)
(#%plain-lambda throw-away
(begin be ...)))))]
[(begin0)
(anormal ctxt (syntax/loc stx (#%plain-app (#%top . void))))]
[(begin0 lbe)
(anormal ctxt (syntax/loc stx lbe))]
[(begin0 fbe be ...)