Browse Source

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

* guix/utils.scm (current-source-directory): Add case for when FILE-NAME
is #f.
version-0.11.0
Ludovic Courtès 6 years ago
parent
commit
a68d0f6fd5
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
  1. 9
      guix/utils.scm

9
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))))))

Loading…
Cancel
Save