Rename functions to disambiguate

This commit is contained in:
Ray Miller 2025-06-23 09:51:00 +01:00
parent 8a41f8f558
commit 9c3373dea9
Signed by: ray
GPG key ID: 043F786C4CD681B8

View file

@ -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