Fixing examples

svn: r737

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^

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")

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))))))))
 

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"))