ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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 @@ (define-syntax current-source-directory
be determined."
(syntax-case s ()
((_)
(match (assq 'filename (syntax-source s))
(match (assq 'filename (or (syntax-source s) '()))
(('filename . (? string? 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
@ -713,7 +713,7 @@ (define-syntax current-source-directory
(dirname file-name))
(else
#`(absolute-dirname #,file-name))))
(_
(#f
#f))))))
;; A source location.