From 2b290b3107278366b3e97e72ab8ccdf77df32bad Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 1 Sep 2005 19:46:29 +0000 Subject: [PATCH] Fixing examples svn: r737 --- .../default-web-root/servlets/examples/compound/helper.ss | 1 - .../default-web-root/servlets/examples/compound/multiply.ss | 1 - collects/web-server/default-web-root/servlets/examples/dir.ss | 3 +-- collects/web-server/default-web-root/servlets/examples/quiz.ss | 1 - 4 files changed, 1 insertion(+), 5 deletions(-) diff --git a/collects/web-server/default-web-root/servlets/examples/compound/helper.ss b/collects/web-server/default-web-root/servlets/examples/compound/helper.ss index 4c4138ccd4..26d5d13da1 100644 --- a/collects/web-server/default-web-root/servlets/examples/compound/helper.ss +++ b/collects/web-server/default-web-root/servlets/examples/compound/helper.ss @@ -1,7 +1,6 @@ (require (lib "xml.ss" "xml") (lib "unitsig.ss") (lib "servlet-sig.ss" "web-server") - (lib "servlet-helpers.ss" "web-server") "helper-sig.ss") (unit/sig my-servlet-helpers^ diff --git a/collects/web-server/default-web-root/servlets/examples/compound/multiply.ss b/collects/web-server/default-web-root/servlets/examples/compound/multiply.ss index 9d925430dd..fafe1a18cc 100644 --- a/collects/web-server/default-web-root/servlets/examples/compound/multiply.ss +++ b/collects/web-server/default-web-root/servlets/examples/compound/multiply.ss @@ -1,5 +1,4 @@ (require (lib "servlet-sig.ss" "web-server") - (lib "servlet-helpers.ss" "web-server") (lib "unitsig.ss") (lib "etc.ss") "helper-sig.ss") diff --git a/collects/web-server/default-web-root/servlets/examples/dir.ss b/collects/web-server/default-web-root/servlets/examples/dir.ss index c5f8da3389..87328ea8e2 100644 --- a/collects/web-server/default-web-root/servlets/examples/dir.ss +++ b/collects/web-server/default-web-root/servlets/examples/dir.ss @@ -1,6 +1,5 @@ (require (lib "unitsig.ss") (lib "servlet-sig.ss" "web-server") - (lib "servlet-helpers.ss" "web-server") (lib "date.ss")) (unit/sig () (import servlet^) @@ -9,5 +8,5 @@ `(html (head (title "Current Directory Page")) (body (h1 "Current Directory Page") - (p "The current directory is: " (em ,(current-directory))))))) + (p "The current directory is: " (em ,(path->string (current-directory)))))))) diff --git a/collects/web-server/default-web-root/servlets/examples/quiz.ss b/collects/web-server/default-web-root/servlets/examples/quiz.ss index bbe6da17af..f8bd28b89a 100644 --- a/collects/web-server/default-web-root/servlets/examples/quiz.ss +++ b/collects/web-server/default-web-root/servlets/examples/quiz.ss @@ -21,7 +21,6 @@ (require (lib "unitsig.ss") (lib "servlet-sig.ss" "web-server") - (lib "servlet-helpers.ss" "web-server") (lib "list.ss") (lib "etc.ss"))