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

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 76f429ad9b669a0c72faf16b0be158ab040d4da2
Author: Ludovic Courtès <address@hidden>
Date:   Mon May 8 17:20:12 2017 +0200

    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(-)

diff --git a/gnu/system/grub.scm b/gnu/system/grub.scm
index d2fa984..5809642 100644
--- a/gnu/system/grub.scm
+++ b/gnu/system/grub.scm
@@ -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)))))