01/02: install: Pass a relative file name to 'local-file'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit bae90dc7e71f2ecfb09a89184915dfeb83473617
Author: Ludovic Courtès <address@hidden>
Date:   Tue Jun 21 12:13:30 2016 +0200

    install: Pass a relative file name to 'local-file'.
    
    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 |    3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/gnu/system/install.scm b/gnu/system/install.scm
index a72613e..de14f6f 100644
--- a/gnu/system/install.scm
+++ b/gnu/system/install.scm
@@ -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"