Subject: bug#77119: guix system vm run error with --share argument.

From: Feng Shu <[email-masked]>
Date: Wed, 19 Mar 2025 22:37:33 +0800

When I use guix system vm with --share argument, the below error will be
showed.

--------------------------------------------------------------------

feng@Guix ~$ guix system vm -e "(@ (geesystem webvm) os)" --share=/home/feng/.config/webvm/guest=/home/guest
Backtrace:
          17 (primitive-load "/home/feng/.config/guix/current/bin/gu…")
In guix/ui.scm:
   2352:7 16 (run-guix . _)
  2315:10 15 (run-guix-command _ . _)
In ice-9/boot-9.scm:
  1752:10 14 (with-exception-handler _ _ #:unwind? _ # _)
In guix/status.scm:
    859:3 13 (_)
    839:4 12 (call-with-status-report _ _)
In guix/scripts/system.scm:
   1332:4 11 (_)
In ice-9/boot-9.scm:
  1752:10 10 (with-exception-handler _ _ #:unwind? _ # _)
In guix/store.scm:
   690:37  9 (thunk)
   1331:8  8 (call-with-build-handler #<procedure 7f63b2fdf3c0 at g…> …)
  2212:25  7 (run-with-store #<store-connection 256.100 7f63b2fc3b90> …)
In guix/scripts/system.scm:
    859:2  6 (_ _)
    739:8  5 (_ #<store-connection 256.100 7f63b2fc3b90>)
In gnu/system/vm.scm:
   312:17  4 (system-qemu-image/shared-store-script _ #:system _ # _ …)
    238:8  3 (common-qemu-options _ ("/gnu/store" "/home/feng/.co…") …)
In unknown file:
           2 (concatenate (#<gexp ("-virtfs" (format #f "local,pa…> …))
In ice-9/boot-9.scm:
  1685:16  1 (raise-exception _ #:continuable? _)
  1685:16  0 (raise-exception _ #:continuable? _)

ice-9/boot-9.scm:1685:16: In procedure raise-exception:
In procedure append: Wrong type argument in position 1 (expecting empty list): #<gexp ("-virtfs" (format #f "local,path=~a,security_model=none,mount_tag=~a" #<gexp-input "/gnu/store":out> #<gexp-input "TAGjoptajej2oynju6yvboauz7pl6uj":out>)) gnu/system/vm.scm:224:4 7f63bf4b3fc0>

--