scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Make SPLIT-ARGUMENTS compatible with scsh >=0.5.2.

This commit is contained in:
sperber 2001-06-03 16:46:54 +00:00
parent 62f6ae4084
commit 6512d291cc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ftpd.scm
View File

@ -731,7 +731,7 @@
(substring file-name 1 (string-length file-name))) (substring file-name 1 (string-length file-name)))
(define split-arguments (define split-arguments
(infix-splitter " +")) (infix-splitter (make-regexp " +")))
; Reply handling ; Reply handling
@ -772,7 +772,7 @@
; Version ; Version
(define *ftpd-version* "$Revision: 1.2 $") (define *ftpd-version* "$Revision: 1.3 $")
(define (copy-port->port-binary input-port output-port) (define (copy-port->port-binary input-port output-port)
(let ((buffer (make-string *window-size*))) (let ((buffer (make-string *window-size*)))