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