From 76f429ad9b669a0c72faf16b0be158ab040d4da2 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 8 May 2017 17:20:12 +0200 Subject: 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. --- gnu/system/grub.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gnu') diff --git a/gnu/system/grub.scm b/gnu/system/grub.scm index d2fa984ec7..58096429fe 100644 --- a/gnu/system/grub.scm +++ b/gnu/system/grub.scm @@ -144,15 +144,15 @@ (define* (svg->png svg #:key width height) (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))))) -- cgit v1.2.3