Use BIG-UTIL instead of rolling our own stuff.

ftpd.scm

@@ -807,7 +807,7 @@
 
 ; Version
 
-(define *ftpd-version* "$Revision: 1.9 $")
+(define *ftpd-version* "$Revision: 1.10 $")
 
 (define (copy-port->port-binary input-port output-port)
   (let ((buffer (make-string *window-size*)))
@@ -856,9 +856,3 @@
    ((null? maybe-arg) default-exp)
    ((null? (cdr maybe-arg)) (car maybe-arg))
    (else (error "too many optional arguments" maybe-arg))))
-
-; Stuff from Big Scheme
-; We can't open BIG-SCHEME because we use virgin SIGNALS.  Sigh.
-
-(define any? (structure-ref big-scheme any?))
-(define partition-list (structure-ref big-scheme partition-list))

modules.scm

@@ -427,6 +427,7 @@
 	threads
 	fluids
 	string-lib
+	big-util
 	defrec-package
 	crlf-io strings ls)
   (access big-scheme)