Optional port

svn: r5841
2007-03-28 12:57:44 +00:00 · 2007-03-28 12:57:44 +00:00 · 9fff42d3c1
commit 9fff42d3c1
parent 52e297af6d
1 changed files with 4 additions and 1 deletions
--- a/collects/web-server/tools/servlet-env.ss
+++ b/collects/web-server/tools/servlet-env.ss
@ -16,10 +16,13 @@
  (define-syntax (on-web:syntax stx)
    (syntax-case stx ()
      [(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)])
         (syntax
          (on-web (lambda (initial-request) servlet-expr)
-                  8000
+                  port
                  "servlets/standalone.ss")))]))
  
  (define (on-web servlet-expr the-port the-path)