Fixed wrong parentheses in FTP-APPEND

2003-10-21 05:44:56 +00:00 · 2003-10-21 05:44:56 +00:00 · a5d9b210f0
parent 6f52781aa6
commit a5d9b210f0
1 changed files with 3 additions and 3 deletions
--- a/scheme/lib/ftp.scm
+++ b/scheme/lib/ftp.scm
@ -297,9 +297,9 @@
   connection
   (lambda ()
     (ftp-send-command connection (build-command "APPE" remote-file)
-		       (exactly-code "150"))
-     (lambda (data-socket)
-       (act (socket:outport data-socket))))))
+		       (exactly-code "150")))
+   (lambda (data-socket)
+     (act (socket:outport data-socket)))))

 ;; send a command verbatim to the remote server and wait for a
 ;; reply.