From b45c23df44b2fdf9e4928a96451a13b0c13b3d77 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Fri, 29 Nov 2002 14:42:02 +0000
Subject: [PATCH] More structure name normalization.

---
 scheme/httpd/server.scm |  7 +++----
 scheme/packages.scm     | 18 +++++++++---------
 2 files changed, 12 insertions(+), 13 deletions(-)

diff --git a/scheme/httpd/server.scm b/scheme/httpd/server.scm
index 1cb0581..7364f99 100755
--- a/scheme/httpd/server.scm
+++ b/scheme/httpd/server.scm
@@ -14,11 +14,10 @@ exec scsh -lm ../packages.scm -dm -o http-top -e top -s "$0" "$@"
 (define-structure http-top (export top)
   (open httpd-core
 	httpd-make-options
-	cgi-server
+	httpd-cgi-server
 	httpd-basic-handlers
-	seval-handler
-	scsh
-	scheme)
+	httpd-seval-handlers
+	scheme-with-scsh)
   (begin
 
     ;; Kitchen-sink request handler.
diff --git a/scheme/packages.scm b/scheme/packages.scm
index bb00f70..37b6ec5 100644
--- a/scheme/packages.scm
+++ b/scheme/packages.scm
@@ -380,15 +380,15 @@
 	  rooted-file-handler
 	  rooted-file-or-directory-handler))
 
-(define-interface seval-handler-interface
-  (export seval-handler))
+(define-interface httpd-seval-handlers-interface
+  (export httpd-seval-handler))
 
-(define-interface info-gateway-interface
+(define-interface httpd-info-gateway-interface
   (export info-handler
 	  find-info-file
 	  info-gateway-error))
 
-(define-interface rman-gateway-interface
+(define-interface httpd-rman-gateway-interface
 (export rman-handler
 	man
 	parse-man-entry
@@ -398,7 +398,7 @@
 	cat-n-decode
 	nroff-n-decode))
 
-(define-interface cgi-server-interface 
+(define-interface httpd-cgi-handlers-interface 
   (export cgi-default-bin-path
 	  cgi-handler))
 
@@ -784,7 +784,7 @@
 	)
   (files (httpd file-dir-handler)))
 
-(define-structure seval-handler seval-handler-interface
+(define-structure httpd-seval-handler httpd-seval-handler-interface
   (open scheme-with-scsh		; syscalls & INDEX
 	httpd-error
 	httpd-requests			; v0.9-request
@@ -803,7 +803,7 @@
 	)
   (files (httpd seval)))
 
-(define-structure info-gateway  info-gateway-interface
+(define-structure httpd-info-gateway httpd-info-gateway-interface
   (open scheme-with-scsh
 	big-scheme
 	srfi-13
@@ -817,7 +817,7 @@
 	handle-fatal-error)
   (files (httpd info-gateway)))
 
-(define-structure rman-gateway rman-gateway-interface
+(define-structure httpd-rman-gateway httpd-rman-gateway-interface
   (open scheme-with-scsh
 	httpd-responses
 	httpd-requests
@@ -833,7 +833,7 @@
 	srfi-13)
   (files (httpd rman-gateway)))
 
-(define-structure cgi-server cgi-server-interface
+(define-structure httpd-cgi-handlers httpd-cgi-handlers-interface
   (open	scheme-with-scsh
 	srfi-13
 	rfc822