scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove obsolete uses of ERROR-PACKAGE.

This commit is contained in:
sperber 2003-01-07 12:32:52 +00:00
parent b5e07aef54
commit db72d0f439
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scheme/packages.scm
View File

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