kreyren/guix-kreyren
1
0
Fork 0
Code Issues 1 Pull Requests 1 Releases Activity

utils: 'current-source-directory' gracefully deals with lack of location info.

Browse Source 
* guix/utils.scm (current-source-directory): Adjust for when
'syntax-source' returns #f.
This commit is contained in:
Ludovic Courtès 2017-09-18 17:00:17 +02:00
parent d209ce434f
commit 82781d871f
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
guix/utils.scm
View File

@ -700,7 +700,7 @@ failure."
be determined." be determined."
(syntax-case s () (syntax-case s ()
((_) ((_)
(match (assq 'filename (syntax-source s)) (match (assq 'filename (or (syntax-source s) '()))
(('filename . (? string? file-name)) (('filename . (? string? file-name))
;; If %FILE-PORT-NAME-CANONICALIZATION is 'relative, then FILE-NAME ;; If %FILE-PORT-NAME-CANONICALIZATION is 'relative, then FILE-NAME
;; can be relative. In that case, we try to find out at run time ;; can be relative. In that case, we try to find out at run time
@ -713,7 +713,7 @@ be determined."
(dirname file-name)) (dirname file-name))
(else (else
#`(absolute-dirname #,file-name)))) #`(absolute-dirname #,file-name))))
(_ (#f
#f)))))) #f))))))
;; A source location. ;; A source location.