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