From db72d0f43918b08fef68265b1a70b1e386db7d7e Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Tue, 7 Jan 2003 12:32:52 +0000
Subject: [PATCH] Remove obsolete uses of ERROR-PACKAGE.

---
 scheme/packages.scm | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/scheme/packages.scm b/scheme/packages.scm
index d21f388..aa8888d 100644
--- a/scheme/packages.scm
+++ b/scheme/packages.scm
@@ -389,7 +389,6 @@
 	crlf-io				; read-crlf-line write-crlf
 	receiving			; values receive
 	let-opt				; let-optionals
-	error-package			; error
 	dns				; SYSTEM-FQDN
 	)
   (files (lib smtp)))
@@ -402,7 +401,6 @@
 	let-opt         ; let-optionals
 	crlf-io		; read-crlf-line
 	ascii		; ascii->char
-	error-package	; error
 	)
   (files (lib rfc822)))
 
@@ -433,7 +431,6 @@
         handle
         conditions
         signals
-        error-package
 	(subset srfi-13 (string-join))
 	let-opt
 	sunet-utilities
@@ -443,9 +440,6 @@
 (define-structure netrc netrc-interface
   (open scheme-with-scsh
 	define-record-types
-	records
-        error-package
-	srfi-13
 	conditions signals handle
 	sunet-utilities
 	let-opt)
@@ -486,7 +480,6 @@
 
 (define-structure cgi-script cgi-script-interface
   (open scheme-with-scsh
-	error-package
 	parse-html-forms)
   (files (lib cgi-script)))
 
@@ -687,7 +680,6 @@
 	httpd-logging			; http-log
 	uri				; UNESCAPE-URI
 	htmlout				; Formatted HTML output
-	error-package			; ERROR ####
 	pp
 	(subset srfi-13 (string-skip))
 	rfc822
@@ -752,7 +744,7 @@
   (files (httpd cgi-server)))
 
 (define-structure loser (export loser)
-  (open scheme error-package)
+  (open scheme signals)
   (begin (define (loser name)
 	   (lambda x (error "Illegal call" name)))))