From 6512d291cc73ae8c63e554819aaebdbbf26b2720 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Sun, 3 Jun 2001 16:46:54 +0000
Subject: [PATCH] Make SPLIT-ARGUMENTS compatible with scsh >=0.5.2.

---
 ftpd.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ftpd.scm b/ftpd.scm
index 05b7614..ece46e2 100644
--- a/ftpd.scm
+++ b/ftpd.scm
@@ -731,7 +731,7 @@
   (substring file-name 1 (string-length file-name)))
 
 (define split-arguments
-  (infix-splitter " +"))
+  (infix-splitter (make-regexp " +")))
 
 ; Reply handling
 
@@ -772,7 +772,7 @@
 
 ; Version
 
-(define *ftpd-version* "$Revision: 1.2 $")
+(define *ftpd-version* "$Revision: 1.3 $")
 
 (define (copy-port->port-binary input-port output-port)
   (let ((buffer (make-string *window-size*)))