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

More comment and indentation fixes.

This commit is contained in:
sperber 2003-01-16 09:12:10 +00:00
parent 3da9d2019d
commit a138b994ba
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
scheme/lib/ftp.scm
View File

@ -106,8 +106,7 @@
LOG "" ""))) LOG "" "")))
(ftp-log connection (ftp-log connection
(format #f "~%-- ~a: opened ftp connection to ~a" (format #f "~%-- ~a: opened ftp connection to ~a"
(date->string (date)) ; doesn't seem to be buggy in v0.6 (date->string (date))
;"Dummy date" ; (format-time-zone) is buggy in v0.5.1
hostname)) hostname))
(ftp-read-response connection "220") ; the initial welcome banner (ftp-read-response connection "220") ; the initial welcome banner
connection))) connection)))
@ -136,12 +135,13 @@
;;: connection x symbol|string -> status ;;: connection x symbol|string -> status
(define (ftp-type connection type) (define (ftp-type connection type)
(let ((ttype (cond (let ((ttype (cond
((string? type) type) ((string? type) type)
((eq? type 'binary) "I") ((eq? type 'binary) "I")
((or (eq? type 'ascii) ((or (eq? type 'ascii)
(eq? type 'text)) "A") (eq? type 'text)) "A")
(else (else
(call-error "type must be one of 'binary or 'text or 'ascii" ftp-type type))))) (call-error "type must be one of 'binary or 'text or 'ascii"
ftp-type type)))))
(ftp-send-command connection (format #f "TYPE ~a" ttype)))) (ftp-send-command connection (format #f "TYPE ~a" ttype))))
;;: connection x string x string -> status ;;: connection x string x string -> status