diff options
| -rw-r--r-- | guix/gexp.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/gexp.scm b/guix/gexp.scm index c798650ff69..71041bcbadc 100644 --- a/guix/gexp.scm +++ b/guix/gexp.scm @@ -224,7 +224,7 @@ returned by 'gexp->sexp'." (let ((extra (length inputs))) (lambda args (apply (gexp-proc gexp) (drop args extra)))) - (gexp-location gexp))) + (and=> (gexp-location gexp) location->source-properties))) ;;; @@ -1250,7 +1250,7 @@ The other arguments are as for 'derivation'." (append modules (gexp-self-modules exp)) (gexp-self-extensions exp) (gexp-proc exp) - (gexp-location exp)))) + (and=> (gexp-location exp) location->source-properties)))) (mlet* %store-monad ( ;; The following binding forces '%current-system' and ;; '%current-target-system' to be looked up at >>= |