amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

system/vm: Fix virtual-machine bug.

Browse source 
The virtual-machine syntax would not accept a single operating-system field,
which was puzzling.

* gnu/system/vm.scm (virtual-machine): Add a pattern matching a single literal
'operating-system' field and value.

Change-Id: If207fd71df3a3f763b2e63229eafa82f63e80773
This commit is contained in:
Maxim Cournoyer 2024-10-30 22:21:18 +09:00
parent 7e5283e855
commit b78794f96d
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
gnu/system/vm.scm
View file

@ -422,10 +422,14 @@ host."
(default #f))) (default #f)))
(define-syntax virtual-machine (define-syntax virtual-machine
(syntax-rules () (syntax-rules (operating-system)
"Declare a virtual machine running the specified OS, with the given "Declare a virtual machine running the specified OS, with the given
options." options."
((_ os) ;shortcut ((_ (operating-system os))
;; Also accept the long form (virtual-machine (operating-system os)), for
;; correctness.
(%virtual-machine (operating-system os)))
((_ os) ;shortcut
(%virtual-machine (operating-system os))) (%virtual-machine (operating-system os)))
((_ fields ...) ((_ fields ...)
(%virtual-machine fields ...)))) (%virtual-machine fields ...))))