diff options
| -rw-r--r-- | gnu/home/services/symlink-manager.scm | 24 |
1 files changed, 13 insertions, 11 deletions
diff --git a/gnu/home/services/symlink-manager.scm b/gnu/home/services/symlink-manager.scm index bce5c85b56..eb13d60496 100644 --- a/gnu/home/services/symlink-manager.scm +++ b/gnu/home/services/symlink-manager.scm @@ -107,9 +107,10 @@ (format #t (G_ "Removing ~a...") file) (delete-file file) (display (G_ " done\n"))) - (format #t - (G_ "Skipping ~a (not a symlink to store)... done\n") - file))))) + (format + #t + (G_ "Skipping ~a (not a symlink to store)... done\n") + file))))) (const #t) ;down (lambda (directory stat _) ;up @@ -121,14 +122,15 @@ (format #t (G_ "Removed ~a.\n") directory)) (lambda args (let ((errno (system-error-errno args))) - (cond ((= ENOTEMPTY errno) - (format - #t - (G_ "Skipping ~a (not an empty directory)...\n") - directory)) - ((= ENOTDIR errno) #t) - (else - (apply throw args))))))))) + (cond + ((= ENOTEMPTY errno) + (format + #t + (G_ "Skipping ~a (not an empty directory)... done\n") + directory)) + ((= ENOTDIR errno) #t) + (else + (apply throw args))))))))) (const #t) ;skip (const #t) ;error #t ;init |