me
/
guix
Archived
1
0
Fork 0
Code

utils: Handle #f file-name. 

* guix/utils.scm (current-source-directory): Change dispatch to handle #f
file-name.

Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
master
Alex Sassmannshausen 2019-04-08 15:18:23 +01:00 committed by Maxim Cournoyer
parent 9c9982dc0c
commit b997d43214
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
guix/utils.scm
View File

@ -782,13 +782,11 @@ 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.
(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
(if (string-prefix? "/" file-name)
(dirname file-name)
#`(absolute-dirname #,file-name)))
((or ('filename . #f) #f)
;; raising an error would upset Geiser users
#f))))))
;; A source location.