From d24d59a68e3f1fa9477e3430fc48a2efe97b805d Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Sat, 16 May 2020 13:37:07 +0200
Subject: Use Guile 3.0.

---
 guile-studio-configure.scm   | 8 ++++----
 guix/rekado/guile-studio.scm | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/guile-studio-configure.scm b/guile-studio-configure.scm
index a900597..fd75dc6 100644
--- a/guile-studio-configure.scm
+++ b/guile-studio-configure.scm
@@ -40,15 +40,15 @@
     ;; would lead to compilation messages in the REPL when Guile
     ;; Studio is first started.
     (defun guile-studio--geiser-guile--parameters (params)
-      (append (list "-C" ,(string-append prefix "/lib/guile/2.2/site-ccache/"))
-              (list "-C" ,(string-append picture-language "/lib/guile/2.2/site-ccache/"))
+      (append (list "-C" ,(string-append prefix "/lib/guile/3.0/site-ccache/"))
+              (list "-C" ,(string-append picture-language "/lib/guile/3.0/site-ccache/"))
               params
               (list "-e" "(@ (guile-studio-init) guile-studio-init)")))
     (advice-add 'geiser-guile--parameters
                 :filter-return (function guile-studio--geiser-guile--parameters))
     (setq geiser-guile-load-path
           '(,(string-append picture-language
-                            "/share/guile/site/2.2/")))
+                            "/share/guile/site/3.0/")))
 
     (setq geiser-autodoc-identifier-format "%s → %s")
     (setq geiser-default-implementation 'guile
@@ -421,7 +421,7 @@ exec ~a/bin/emacs --no-site-file --no-site-lisp --no-x-resources --no-init-file
                                 (use-modules (pict)))))))
        (compile-file (string-append share "/guile-studio-init.scm")
                      #:output-file
-                     (string-append prefix "/lib/guile/2.2/site-ccache/"
+                     (string-append prefix "/lib/guile/3.0/site-ccache/"
                                     "/guile-studio-init.go")))
      #t)
     ((script . _)
diff --git a/guix/rekado/guile-studio.scm b/guix/rekado/guile-studio.scm
index 6ef771f..5592853 100644
--- a/guix/rekado/guile-studio.scm
+++ b/guix/rekado/guile-studio.scm
@@ -46,7 +46,7 @@
          (delete 'configure)
          (delete 'install))))
     (inputs
-     `(("guile" ,guile-2.2)
+     `(("guile" ,guile-3.0)
        ("guile-picture-language" ,guile-picture-language)
        ("emacs" ,emacs)
        ("emacs-geiser" ,emacs-geiser)
-- 
cgit v1.2.3