tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-11 07:30:38 +02:00
Code Activity

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

Browse Source 
* gnu/system/examples/vm-image.tmpl (this-file): Use 'basename' and
'current-source-location'.
This commit is contained in:
Ludovic Courtès
2019-04-26 16:47:11 +02:00
parent 272db5bcf5
commit 1ac6c33cae
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
gnu/system/examples/vm-image.tmpl
View File

@@ -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