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

Remove superfluous display of condition.

This commit is contained in:
sperber 2002-02-20 13:55:19 +00:00
parent 40e026a889
commit dcdb7e4371
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ftpd.scm
View File

@ -230,7 +230,6 @@
"hit error condition ~A (maybe reason (maybe Netscape?): ~S) -- exiting" "hit error condition ~A (maybe reason (maybe Netscape?): ~S) -- exiting"
(condition-type condition) (condition-type condition)
(condition-stuff condition)) (condition-stuff condition))
(display condition (current-error-port))
(escape 'fick-dich-ins-knie)) (escape 'fick-dich-ins-knie))
(lambda () (lambda ()
(let-fluid session (make-session input-port output-port (let-fluid session (make-session input-port output-port
@ -1129,7 +1128,7 @@
; Version ; Version
(define *ftpd-version* "$Revision: 1.30 $") (define *ftpd-version* "$Revision: 1.31 $")
(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*)))