Remove superfluous display of condition.
This commit is contained in:
parent
40e026a889
commit
dcdb7e4371
3
ftpd.scm
3
ftpd.scm
|
@ -230,7 +230,6 @@
|
|||
"hit error condition ~A (maybe reason (maybe Netscape?): ~S) -- exiting"
|
||||
(condition-type condition)
|
||||
(condition-stuff condition))
|
||||
(display condition (current-error-port))
|
||||
(escape 'fick-dich-ins-knie))
|
||||
(lambda ()
|
||||
(let-fluid session (make-session input-port output-port
|
||||
|
@ -1129,7 +1128,7 @@
|
|||
|
||||
; Version
|
||||
|
||||
(define *ftpd-version* "$Revision: 1.30 $")
|
||||
(define *ftpd-version* "$Revision: 1.31 $")
|
||||
|
||||
(define (copy-port->port-binary input-port output-port)
|
||||
(let ((buffer (make-string *window-size*)))
|
||||
|
|
Loading…
Reference in New Issue