From 7f7eb610d898800af48bb8725c706a0a193a15c4 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Sun, 8 Dec 2002 15:49:27 +0000
Subject: [PATCH] use SCHEME-WITH-SCSH instead of SCSH and SCHEME

---
 scheme/httpd/surflets/web-server/root/surflets/add.scm         | 3 +--
 scheme/httpd/surflets/web-server/root/surflets/add2.scm        | 3 +--
 .../httpd/surflets/web-server/root/surflets/admin-handler.scm  | 3 +--
 .../surflets/web-server/root/surflets/admin-profiling.scm      | 3 +--
 .../surflets/web-server/root/surflets/admin-servlets-cb.scm    | 3 +--
 .../httpd/surflets/web-server/root/surflets/admin-servlets.scm | 3 +--
 scheme/httpd/surflets/web-server/root/surflets/admin.scm       | 3 +--
 scheme/httpd/surflets/web-server/root/surflets/byte-input.scm  | 3 +--
 .../httpd/surflets/web-server/root/surflets/calculate-cb.scm   | 3 +--
 scheme/httpd/surflets/web-server/root/surflets/calculate.scm   | 3 +--
 scheme/httpd/surflets/web-server/root/surflets/news.scm        | 3 +--
 .../httpd/surflets/web-server/root/surflets/simple-servlet.scm | 3 +--
 scheme/httpd/surflets/web-server/root/surflets/spaceship.scm   | 3 +--
 13 files changed, 13 insertions(+), 26 deletions(-)

diff --git a/scheme/httpd/surflets/web-server/root/surflets/add.scm b/scheme/httpd/surflets/web-server/root/surflets/add.scm
index ce4d166..65a4a5b 100644
--- a/scheme/httpd/surflets/web-server/root/surflets/add.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/add.scm
@@ -3,8 +3,7 @@
 	httpd-requests
 	httpd-responses
 	url
-	scsh
-	scheme)
+	scheme-with-scsh)
   (begin
 
     (define (get-number input-text . maybe-title)
diff --git a/scheme/httpd/surflets/web-server/root/surflets/add2.scm b/scheme/httpd/surflets/web-server/root/surflets/add2.scm
index 6b2e295..7b1fc5e 100644
--- a/scheme/httpd/surflets/web-server/root/surflets/add2.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/add2.scm
@@ -4,8 +4,7 @@
 	url
 	handle-fatal-error
 	let-opt
-	scsh
-	scheme)
+	scheme-with-scsh)
   (begin
 
     (define number-input-field (make-number-input-field '(@ (maxlength 10))))
diff --git a/scheme/httpd/surflets/web-server/root/surflets/admin-handler.scm b/scheme/httpd/surflets/web-server/root/surflets/admin-handler.scm
index 48bc97a..1c4262d 100644
--- a/scheme/httpd/surflets/web-server/root/surflets/admin-handler.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/admin-handler.scm
@@ -1,6 +1,5 @@
 (define-structure servlet servlet-interface
-  (open scsh
-	scheme
+  (open scheme-with-scsh
 	handle-fatal-error
 	let-opt
 	servlets
diff --git a/scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm b/scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm
index 671ca9e..39778c4 100644
--- a/scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm
@@ -1,6 +1,5 @@
 (define-structure servlet servlet-interface
-  (open scsh
-	scheme
+  (open scheme-with-scsh
 	servlets
 	servlet-handler/admin
 	profiling
diff --git a/scheme/httpd/surflets/web-server/root/surflets/admin-servlets-cb.scm b/scheme/httpd/surflets/web-server/root/surflets/admin-servlets-cb.scm
index a13ceb5..0b29baa 100644
--- a/scheme/httpd/surflets/web-server/root/surflets/admin-servlets-cb.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/admin-servlets-cb.scm
@@ -1,6 +1,5 @@
 (define-structure servlet servlet-interface
-  (open scsh
-	scheme
+  (open scheme-with-scsh
 	servlets
 	servlet-handler/admin
 	httpd-responses
diff --git a/scheme/httpd/surflets/web-server/root/surflets/admin-servlets.scm b/scheme/httpd/surflets/web-server/root/surflets/admin-servlets.scm
index d347c38..999e317 100644
--- a/scheme/httpd/surflets/web-server/root/surflets/admin-servlets.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/admin-servlets.scm
@@ -1,6 +1,5 @@
 (define-structure servlet servlet-interface
-  (open scsh
-	scheme
+  (open scheme-with-scsh
 	servlets
 	servlet-handler/admin
 	httpd-responses
diff --git a/scheme/httpd/surflets/web-server/root/surflets/admin.scm b/scheme/httpd/surflets/web-server/root/surflets/admin.scm
index 5d374f2..5a0b7cd 100644
--- a/scheme/httpd/surflets/web-server/root/surflets/admin.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/admin.scm
@@ -1,6 +1,5 @@
 (define-structure servlet servlet-interface
-  (open scsh
-	scheme
+  (open scheme-with-scsh
 	servlets
 	servlet-handler/admin
 	)
diff --git a/scheme/httpd/surflets/web-server/root/surflets/byte-input.scm b/scheme/httpd/surflets/web-server/root/surflets/byte-input.scm
index 818da67..c2032bf 100644
--- a/scheme/httpd/surflets/web-server/root/surflets/byte-input.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/byte-input.scm
@@ -3,8 +3,7 @@
 	httpd-requests
 	handle-fatal-error
 	url
-	scsh
-	scheme)
+	scheme-with-scsh)
   (begin
 
     ;; This doesn't use c-a-l-l-b-a-c-k-s anymore.
diff --git a/scheme/httpd/surflets/web-server/root/surflets/calculate-cb.scm b/scheme/httpd/surflets/web-server/root/surflets/calculate-cb.scm
index 66442d9..8a0ccba 100644
--- a/scheme/httpd/surflets/web-server/root/surflets/calculate-cb.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/calculate-cb.scm
@@ -3,8 +3,7 @@
 	httpd-requests
 	handle-fatal-error
 	let-opt
-	scsh
-	scheme)
+	scheme-with-scsh)
   (begin
 
     ;; This uses callbacks.
diff --git a/scheme/httpd/surflets/web-server/root/surflets/calculate.scm b/scheme/httpd/surflets/web-server/root/surflets/calculate.scm
index 4b58dd4..0df69f5 100644
--- a/scheme/httpd/surflets/web-server/root/surflets/calculate.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/calculate.scm
@@ -3,8 +3,7 @@
 	httpd-requests
 	handle-fatal-error
 	let-opt
-	scsh
-	scheme)
+	scheme-with-scsh)
   (begin
 
     ;; This doesn't use c-a-l-l-b-a-c-k-s anymore.
diff --git a/scheme/httpd/surflets/web-server/root/surflets/news.scm b/scheme/httpd/surflets/web-server/root/surflets/news.scm
index bb0a879..1f794ed 100644
--- a/scheme/httpd/surflets/web-server/root/surflets/news.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/news.scm
@@ -1,6 +1,5 @@
 (define-structure servlet servlet-interface
-  (open scsh
-	scheme
+  (open scheme-with-scsh
 	servlets
 	crlf-io)
   (begin
diff --git a/scheme/httpd/surflets/web-server/root/surflets/simple-servlet.scm b/scheme/httpd/surflets/web-server/root/surflets/simple-servlet.scm
index 77f3c63..82489c3 100644
--- a/scheme/httpd/surflets/web-server/root/surflets/simple-servlet.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/simple-servlet.scm
@@ -1,6 +1,5 @@
 (define-structure servlet servlet-interface
-  (open scsh
-	scheme
+  (open scheme-with-scsh
 	simple-servlet-api)
   (begin
     
diff --git a/scheme/httpd/surflets/web-server/root/surflets/spaceship.scm b/scheme/httpd/surflets/web-server/root/surflets/spaceship.scm
index 55b7839..2a76976 100644
--- a/scheme/httpd/surflets/web-server/root/surflets/spaceship.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/spaceship.scm
@@ -1,6 +1,5 @@
 (define-structure servlet servlet-interface
-  (open scsh
-	scheme
+  (open scheme-with-scsh
 	servlets
 	let-opt
 	receiving