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

6
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)))
@ -141,7 +140,8 @@
((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