From 9c3373dea94e40280328fbff7a481f16494b2a99 Mon Sep 17 00:00:00 2001
From: Ray Miller <ray@1729.org.uk>
Date: Mon, 23 Jun 2025 09:51:00 +0100
Subject: [PATCH] Rename functions to disambiguate

---
 ordo/action/filesystem.scm | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/ordo/action/filesystem.scm b/ordo/action/filesystem.scm
index 009363d..87e421b 100644
--- a/ordo/action/filesystem.scm
+++ b/ordo/action/filesystem.scm
@@ -12,8 +12,8 @@
             install-dir
             install-file
             file-info
-            delete
-            link))
+            remove-file
+            create-link))
 
 (define* (file-info conn #:key path (atime? #t) (ctime? #t))
   (define (parse-stat-result s)
@@ -43,15 +43,13 @@
        (let ((st-after (file-info conn #:path path #:atime? #f #:ctime? #f)))
          (not (equal? st-before st-after)))))))
 
-(define* (delete conn #:key path (recurse? #f))
+(define* (remove-file conn #:key path (recurse? #f))
   (changed-if-stat-changed
    conn path
-   (remote-cmd conn "rm" "-f"
-               (when recurse? "-r")
-               path
+   (remote-cmd conn "rm" "-f" (when recurse? "-r") path
                #:check? #t)))
 
-(define* (link conn #:key target link-name (symbolic? #f) (force? #t) (backup? #f))
+(define* (create-link conn #:key target link-name (symbolic? #f) (force? #t) (backup? #f))
   "Create a link to @code{target} with the name @code{link-name}."
   (changed-if-stat-changed
    conn link-name