Rename functions to disambiguate
This commit is contained in:
parent
8a41f8f558
commit
9c3373dea9
1 changed files with 5 additions and 7 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue