utils: 'current-source-directory' gracefully handles lack of source info.

* guix/utils.scm (current-source-directory): Add case for when FILE-NAME is #f.
2016-06-19 22:30:34 +02:00 · 2016-06-19 22:30:34 +02:00 · a68d0f6fd5
parent cbbbb7be0f
commit a68d0f6fd5
1 changed files with 6 additions and 3 deletions
--- a/guix/utils.scm
+++ b/guix/utils.scm
@ -727,9 +727,12 @@ be determined."
          ;; the absolute file name by looking at %LOAD-PATH; doing this at
          ;; run time rather than expansion time is necessary to allow files
          ;; to be moved on the file system.
-          (if (string-prefix? "/" file-name)
-              (dirname file-name)
-              #`(absolute-dirname #,file-name)))
+          (cond ((not file-name)
+                 #f)                ;raising an error would upset Geiser users
+                ((string-prefix? "/" file-name)
+                 (dirname file-name))
+                (else
+                 #`(absolute-dirname #,file-name))))
         (_
          #f))))))