Replace all instances of STRING-LIB by SRFI-13.

This commit is contained in:
sperber 2002-08-26 11:45:08 +00:00
parent 1a1dcebbd0
commit 2f5f46cb5f
1 changed files with 16 additions and 16 deletions

View File

@ -420,7 +420,7 @@
(files (lib parse-forms)))
(define-structure htmlout htmlout-interface
(open scsh scsh-utilities string-lib formats ascii receiving scheme)
(open scsh scsh-utilities srfi-13 formats ascii receiving scheme)
(files (lib htmlout)))
(define-structures
@ -439,7 +439,7 @@
(define-structure rfc822 rfc822-interface
(open receiving ; MV return (RECEIVE and VALUES)
scsh-utilities ; index
string-lib
srfi-13
let-opt ; let-optionals
crlf-io ; read-crlf-line
ascii ; ascii->char
@ -450,7 +450,7 @@
(define-structure uri uri-interface
(open scsh-utilities
string-lib
srfi-13
let-opt
receiving
@ -483,7 +483,7 @@
signals
error-package
ecm-utilities
string-lib
srfi-13
let-opt
scheme)
(files (lib ftp)))
@ -522,7 +522,7 @@
scsh
error-package
ecm-utilities
string-lib
srfi-13
conditions signals handle
let-opt
scheme)
@ -536,7 +536,7 @@
conditions
signals
ecm-utilities
string-lib
srfi-13
scheme)
(files (lib pop3)))
@ -613,7 +613,7 @@
(define-structure ecm-utilities ecm-utilities-interface
(open scsh
string-lib
srfi-13
scheme)
(files (lib ecm-utilities)))
@ -656,7 +656,7 @@
locks
thread-fluids ; fork-thread
fluids
string-lib
srfi-13
big-util
defrec-package
crlf-io
@ -684,7 +684,7 @@
formats ; format
format-net ; format-internet-host-address
rate-limit ; rate-limiting stuff
string-lib ; STRING-INDEX
srfi-13 ; STRING-INDEX
dns ; dns-lookup-ip
sunet-utilities ; socket-address->string
locks ; make-lock et al.
@ -711,7 +711,7 @@
httpd-responses
httpd-request
httpd-error
string-lib ; STRING-MAP
srfi-13 ; STRING-MAP
scsh
scheme)
(files (httpd access-control)))
@ -730,7 +730,7 @@
httpd-request ; request record
formats ; format
format-net ; format-internet-host-address
string-lib ; string-join, string-trim
srfi-13 ; string-join, string-trim
rfc822 ; get-header
sunet-utilities ; on-interrupt
threads ; spawn
@ -785,7 +785,7 @@
htmlout ; Formatted HTML output
error-package ; ERROR
pp ; Pretty-printer
string-lib ; STRING-SKIP
srfi-13 ; STRING-SKIP
rfc822
toothless-eval ; EVAL-SAFELY
handle ; IGNORE-ERROR
@ -796,7 +796,7 @@
(define-structure info-gateway info-gateway-interface
(open big-scheme
string-lib
srfi-13
conditions signals handle
htmlout
httpd-request
@ -821,12 +821,12 @@
handle-fatal-error
scsh
let-opt
string-lib
srfi-13
scheme)
(files (httpd rman-gateway)))
(define-structure cgi-server cgi-server-interface
(open string-lib
(open srfi-13
rfc822
crlf-io ; WRITE-CRLF
uri