~ruther/guix-local: system: grub: Use the native Guile-Cairo and Guile-SVG.

76f429ad9b669a0c72faf16b0be158ab040d4da2 — Ludovic Courtès 8 years ago 4d8fd82

system: grub: Use the native Guile-Cairo and Guile-SVG.

* gnu/system/grub.scm (svg->png): Use 'ungexp-native' aka. #+ when
referring to GUILE-CAIRO, GUILE-SVG, and SVG.

patch browse .tar.gz

1 files changed, 3 insertions(+), 3 deletions(-)

M gnu/system/grub.scm

M gnu/system/grub.scm => gnu/system/grub.scm +3 -3

@@ 144,15 144,15 @@ denoting a file name."
                     (with-imported-modules '((gnu build svg))
                       #~(begin
                           ;; We need these two libraries.
-                          (add-to-load-path (string-append #$guile-rsvg
+                          (add-to-load-path (string-append #+guile-rsvg
                                                            "/share/guile/site/"
                                                            (effective-version)))
-                          (add-to-load-path (string-append #$guile-cairo
+                          (add-to-load-path (string-append #+guile-cairo
                                                            "/share/guile/site/"
                                                            (effective-version)))
 
                           (use-modules (gnu build svg))
-                          (svg->png #$svg #$output
+                          (svg->png #+svg #$output
                                     #:width #$width
                                     #:height #$height)))))