WIP tidier: could explode if tmp-file does not exist, but then why is…

… exit-status 0 ?
owaddell · Jun 6, 2024 · 8281b6e · 8281b6e
1 parent 2371282
commit 8281b6e
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/examples/apt-archive/proxy.ss b/examples/apt-archive/proxy.ss
@@ -117,10 +117,8 @@
             (receive
              [#(process-terminated ,@os-pid ,exit-status ,term-signal)
               (and (= exit-status 0)
-                   (file-exists? tmp-file)
-                   (begin
-                     (rename-path tmp-file (make-directory-path target-file))
-                     #t))]))]
+                   (rename-path tmp-file (make-directory-path target-file))
+                   (file-exists? tmp-file))]))]
          ["http"
           (let-values ([(ip op) (connect-tcp host port)])
             (on-exit (begin (close-port ip) (close-port op))