gexp: Use a relative file name.

This is a followup to cbbbb7be0f.

* guix/gexp.scm (%utils-module): Use a file name relative to this file
instead of using 'search-path'.
This commit is contained in:
Ludovic Courtès 2016-06-20 23:46:32 +02:00
parent de7e0e8ee0
commit a9601e2352
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -856,8 +856,10 @@ (define (substitute-references exp substs)
(define %utils-module
;; This file provides 'mkdir-p', needed to implement 'imported-files' and
;; other primitives below.
(local-file (search-path %load-path "guix/build/utils.scm")
;; other primitives below. Note: We give the file name relative to this
;; file you are currently reading; 'search-path' could return a file name
;; relative to the current working directory.
(local-file "build/utils.scm"
"build-utils.scm"))
(define* (imported-files files