From 1ac6c33caec2c2a4aaadda49cb0febb5bfbf264c Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Fri, 26 Apr 2019 16:47:11 +0200
Subject: 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(-)

(limited to 'gnu/system')

diff --git a/gnu/system/examples/vm-image.tmpl b/gnu/system/examples/vm-image.tmpl
index d451c42bd8..62ed032731 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
-- 
cgit v1.2.3