diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-04-26 16:47:11 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-04-26 16:47:11 +0200 |
| commit | 1ac6c33caec2c2a4aaadda49cb0febb5bfbf264c (patch) | |
| tree | ab43589cffda8f132ad74ca7b6147ae0991f540a | |
| parent | 272db5bcf53d9d05d5c4b2df021d9e74f78866cd (diff) | |
| download | patches-1ac6c33caec2c2a4aaadda49cb0febb5bfbf264c.tar patches-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'.
| -rw-r--r-- | gnu/system/examples/vm-image.tmpl | 3 |
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 |