install: Pass a relative file name to 'local-file'.
authorLudovic Courtès <ludo@gnu.org>
Tue, 21 Jun 2016 10:13:30 +0000 (12:13 +0200)
committerLudovic Courtès <ludo@gnu.org>
Tue, 21 Jun 2016 10:23:34 +0000 (12:23 +0200)
This is a followup to cbbbb7be0fbaa11ff75bce92f2d82131ff8db104.

* gnu/system/install.scm (/etc/configuration-files): Pass a relative
file name to 'local-file'.

gnu/system/install.scm

index a72613e..de14f6f 100644 (file)
@@ -208,8 +208,7 @@ the user's target storage device rather than on the RAM disk."
   "Return a list of tuples representing configuration templates to add to
 /etc."
   (define (file f)
-    (local-file (search-path %load-path
-                             (string-append "gnu/system/examples/" f))))
+    (local-file (string-append "examples/" f)))
 
   (define directory
     (computed-file "configuration-templates"