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'.
This commit is contained in:
Ludovic Courtès 2019-04-26 16:47:11 +02:00
parent 272db5bcf5
commit 1ac6c33cae
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

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