From 1ac6c33caec2c2a4aaadda49cb0febb5bfbf264c Mon Sep 17 00:00:00 2001 From: Ludovic Courtès 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/examples/vm-image.tmpl') 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