From 82781d871f8753737448c562b3906b2a7f89581c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 18 Sep 2017 17:00:17 +0200 Subject: [PATCH] utils: 'current-source-directory' gracefully deals with lack of location info. * guix/utils.scm (current-source-directory): Adjust for when 'syntax-source' returns #f. --- guix/utils.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/guix/utils.scm b/guix/utils.scm index ab43ed4008..8fbbdc3563 100644 --- a/guix/utils.scm +++ b/guix/utils.scm @@ -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.