aboutsummaryrefslogtreecommitdiff
path: root/gnu/system/examples
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-04-26 16:47:11 +0200
committerLudovic Courtès <ludo@gnu.org>2019-04-26 16:47:11 +0200
commit1ac6c33caec2c2a4aaadda49cb0febb5bfbf264c (patch)
treeab43589cffda8f132ad74ca7b6147ae0991f540a /gnu/system/examples
parent272db5bcf53d9d05d5c4b2df021d9e74f78866cd (diff)
downloadguix-1ac6c33caec2c2a4aaadda49cb0febb5bfbf264c.tar
guix-1ac6c33caec2c2a4aaadda49cb0febb5bfbf264c.tar.gz
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'.
Diffstat (limited to 'gnu/system/examples')
-rw-r--r--gnu/system/examples/vm-image.tmpl3
1 files changed, 2 insertions, 1 deletions
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