01/04: vm-image: Use the actual file name of the current file.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 1ac6c33caec2c2a4aaadda49cb0febb5bfbf264c
Author: Ludovic Courtès <address@hidden>
Date:   Fri Apr 26 16:47:11 2019 +0200

    vm-image: Use the actual file name of the current file.
    
    * gnu/system/examples/vm-image.tmpl (this-file): Use 'basename' and
    'current-source-location'.
---
 gnu/system/examples/vm-image.tmpl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gnu/system/examples/vm-image.tmpl 
b/gnu/system/examples/vm-image.tmpl
index d451c42..62ed032 100644
--- a/gnu/system/examples/vm-image.tmpl
+++ b/gnu/system/examples/vm-image.tmpl
@@ -22,7 +22,8 @@ accounts.\x1b[0m
 "))
 
 (define this-file
-  (local-file "./vm-image.tmpl" "config.scm"))
+  (local-file (basename (assoc-ref (current-source-location) 'filename))
+              "config.scm"))
 
 
 (operating-system