From f4c71424f42b44577e93533be127239bb0bed410 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 14 Aug 2008 22:16:03 +0000 Subject: [PATCH] bug related to servlet-env mod svn: r11261 --- collects/htdp/servlet.ss | 2 ++ collects/htdp/servlet2.ss | 4 +++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/htdp/servlet.ss b/collects/htdp/servlet.ss index a3f70aef79..f0847c2376 100644 --- a/collects/htdp/servlet.ss +++ b/collects/htdp/servlet.ss @@ -1,10 +1,12 @@ ; Author: Paul Graunke #cs(module servlet mzscheme (require web-server/servlet-env + web-server/servlet htdp/error xml mzlib/etc) (provide (all-from web-server/servlet-env) + (all-from web-server/servlet) (rename wrapped-build-suspender build-suspender)) ; build-suspender : (listof html) (listof html) [(listof (cons sym str))] [(listof (cons sym str))] -> str -> response diff --git a/collects/htdp/servlet2.ss b/collects/htdp/servlet2.ss index 570c6ce8ab..3ff6f36acd 100644 --- a/collects/htdp/servlet2.ss +++ b/collects/htdp/servlet2.ss @@ -4,6 +4,7 @@ buttons: multiple points of returns: continuation functions |# (require (prefix-in servlet: web-server/servlet-env) + (prefix-in servlet: web-server/servlet) htdp/error scheme/tcp scheme/bool @@ -529,7 +530,8 @@ [th (thread (lambda () (let ([port (get-next-port)]) - (servlet:on-web port (server-loop)))))] + (servlet:serve/servlet (lambda (start) (server-loop)) + #:port port))))] [a-server (make-server th req-ch res-ch)]) (current-server a-server))))