From a6fcfa89a73678404f64a49fb21620127ebea6f5 Mon Sep 17 00:00:00 2001
From: vyzo <vyzo@hackzen.org>
Date: Sun, 8 Dec 2024 21:55:56 +0200
Subject: [PATCH] use move-file where appropariate

---
 src/std/actor-v18/admin.ss    | 4 ++--
 src/std/actor-v18/registry.ss | 2 +-
 src/tools/gxtags.ss           | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/std/actor-v18/admin.ss b/src/std/actor-v18/admin.ss
index fbe4c6358..f5cc16c39 100644
--- 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
index 63b75feb8..fd7c977f1 100644
--- 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
index 32241a0e5..b574f780a 100644
--- 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)))