use move-file where appropariate

mighty-gerbils · Dec 8, 2024 · a6fcfa8 · a6fcfa8
1 parent 241e7f1
commit a6fcfa8
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/src/std/actor-v18/admin.ss b/src/std/actor-v18/admin.ss
@@ -81,8 +81,8 @@
         (lambda (out) (write-subu8vector pubk-bytes 0 (u8vector-length pubk-bytes) out)))
       (call-with-output-file privk-path-tmp
         (lambda (out) (write-subu8vector privk-blob 0 (u8vector-length privk-blob) out)))
-      (rename-file pubk-path-tmp pubk-path)
-      (rename-file privk-path-tmp privk-path))))
+      (move-file pubk-path-tmp pubk-path)
+      (move-file privk-path-tmp privk-path))))
 
 (def (admin-auth-challenge-sign privk server-id client-id challenge-bytes)
   (let (challenge

diff --git a/src/std/actor-v18/registry.ss b/src/std/actor-v18/registry.ss
@@ -170,7 +170,7 @@
             (for (entry (hash->list self.servers))
               (write entry file)
               (newline file))))
-        (rename-file tmp self.path)
+        (move-file tmp self.path)
         (set! self.dirty? #f)))))
 
 (defmethod {close registry}

diff --git a/src/tools/gxtags.ss b/src/tools/gxtags.ss
@@ -278,4 +278,4 @@
          (lines (read-file-lines tagfile))
          (sorted (sort lines string<?)))
     (write-file-lines tmp sorted)
-    (rename-file tmp tagfile)))
+    (move-file tmp tagfile)))