From 76d5ce3a74ace00cc419efec776c49ffe3495a43 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Wed, 20 Jun 2001 09:08:01 +0000
Subject: [PATCH] Use BIG-UTIL instead of rolling our own stuff.

---
 ftpd.scm    | 8 +-------
 modules.scm | 1 +
 2 files changed, 2 insertions(+), 7 deletions(-)

diff --git a/ftpd.scm b/ftpd.scm
index 0d308b3..228bb6e 100644
--- a/ftpd.scm
+++ b/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))
diff --git a/modules.scm b/modules.scm
index 022be78..3d8dd61 100644
--- a/modules.scm
+++ b/modules.scm
@@ -427,6 +427,7 @@
 	threads
 	fluids
 	string-lib
+	big-util
 	defrec-package
 	crlf-io strings ls)
   (access big-scheme)