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?
