~ruther/guix-local: profiles: Only check file contents if the file exists.

32b7506c987d8b7281382da4831958a64c048fc1 — Ricardo Wurmus 8 years ago 2d9495d

profiles: Only check file contents if the file exists.

* guix/profiles.scm (fonts-dir-file): Check that files exist before using
"empty-file?".

patch browse .tar.gz

1 files changed, 4 insertions(+), 2 deletions(-)

M guix/profiles.scm

M guix/profiles.scm => guix/profiles.scm +4 -2

@@ 1095,9 1095,11 @@ files for the fonts of the @var{manifest} entries."
                                 (unless (and (zero? (system* mkfontscale))
                                              (zero? (system* mkfontdir)))
                                   (exit #f))
-                                (when (empty-file? fonts-scale-file)
+                                (when (and (file-exists? fonts-scale-file)
+                                           (empty-file? fonts-scale-file))
                                   (delete-file fonts-scale-file))
-                                (when (empty-file? fonts-dir-file)
+                                (when (and (file-exists? fonts-dir-file)
+                                           (empty-file? fonts-dir-file))
                                   (delete-file fonts-dir-file))))
                             directories)))))))