Re: [PATCH 4/5] install: Extract procedure: install-grub-config.

[Danny Milosavljevic]

Thanks for this!

> -(define* (install-grub grub.cfg device mount-point)
> +(define (install-grub grub.cfg device mount-point)
>    "Install GRUB with GRUB.CFG on DEVICE, which is assumed to be mounted on
>  MOUNT-POINT.
>  
>  Note that the caller must make sure that GRUB.CFG is registered as a GC root
>  so that the fonts, background images, etc. referred to by GRUB.CFG are not
>  GC'd."
> +  (install-grub-config grub.cfg mount-point)
> +  (unless (zero? (system* "grub-install" "--no-floppy"

^^^ since you have touched it, maybe you know: How does it know which package's 
(which directory's) grub-install to invoke here?