[bug#41785] [PATCH v3 2/2] services: Add 'hurd-vm service-type'.

[Ludovic Courtès]

Hi,

Mathieu Othacehe <othacehe@gnu.org> skribis:

> +(define-syntax-rule (maybe-with-target image exp ...)
> +  (let ((target (image-target image)))
> +    (if target
> +        (with-parameters ((%current-target-system target))
> +          exp ...)
> +        (begin
> +          exp ...))))

I think you don’t need the ‘if’ here.  But then maybe you don’t need the
macro either since you can always write:

  (with-parameters ((%current-target-system (image-target image)))
    …)

Anyway, all this looks great to me! :-)

Ludo’.