~ruther/guix-local: utils: 'current-source-directory' gracefully deals with lack of location info.

82781d871f8753737448c562b3906b2a7f89581c — Ludovic Courtès 8 years ago d209ce4

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

* guix/utils.scm (current-source-directory): Adjust for when
'syntax-source' returns #f.

patch browse .tar.gz

1 files changed, 2 insertions(+), 2 deletions(-)

M guix/utils.scm

M guix/utils.scm => guix/utils.scm +2 -2

@@ 700,7 700,7 @@ failure."
 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 @@ be determined."
                  (dirname file-name))
                 (else
                  #`(absolute-dirname #,file-name))))
-         (_
+         (#f
           #f))))))
 
 ;; A source location.