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

Optional port

Browse Source 
svn: r5841
This commit is contained in:
Jay McCarthy 2007-03-28 12:57:44 +00:00
parent 52e297af6d
commit 9fff42d3c1
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/web-server/tools/servlet-env.ss
View File

@ -16,10 +16,13 @@
(define-syntax (on-web:syntax stx) (define-syntax (on-web:syntax stx)
(syntax-case stx () (syntax-case stx ()
[(on-web:syntax servlet-expr) [(on-web:syntax servlet-expr)
(syntax
(on-web:syntax 8000 servlet-expr))]
[(on-web:syntax port servlet-expr)
(with-syntax ([initial-request (datum->syntax-object (syntax servlet-expr) 'initial-request)]) (with-syntax ([initial-request (datum->syntax-object (syntax servlet-expr) 'initial-request)])
(syntax (syntax
(on-web (lambda (initial-request) servlet-expr) (on-web (lambda (initial-request) servlet-expr)
8000 port
"servlets/standalone.ss")))])) "servlets/standalone.ss")))]))
(define (on-web servlet-expr the-port the-path) (define (on-web servlet-expr the-port the-path)