From f00914838f1528278206e98e248c358b0404184a Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 6 Nov 2019 08:58:50 -0500
Subject: guix: Make it easier to switch the Guile used for builds.

---
 guix.scm | 19 ++++---------------
 1 file changed, 4 insertions(+), 15 deletions(-)

diff --git a/guix.scm b/guix.scm
index 707e35b..9bb1c64 100644
--- a/guix.scm
+++ b/guix.scm
@@ -52,18 +52,7 @@
              (gnu packages maths)
              (gnu packages image))
 
-(define (package-with-guile p guile)
-  (package
-    (inherit p)
-    (inputs
-     (map (match-lambda
-            (("guile" _)
-             `("guile" ,guile))
-            (input input))
-          (package-inputs p)))))
-
-(define (package-with-guile-2.2 p)
-  (package-with-guile p guile-2.2.4))
+(define target-guile guile-next)
 
 (define guile-opengl
   (package
@@ -71,7 +60,7 @@
     (inputs
      (map (match-lambda
             (("guile" _)
-             `("guile" ,guile-next))
+             `("guile" ,target-guile))
             (input input))
           (package-inputs guile-opengl)))
     (native-inputs
@@ -133,7 +122,7 @@
          ("pkg-config" ,pkg-config)
          ("texinfo" ,texinfo)))
       (inputs
-       `(("guile" ,guile-next)
+       `(("guile" ,target-guile)
          ("sdl2" ,sdl2)
          ("sdl2-image" ,sdl2-image)
          ("sdl2-mixer" ,sdl2-mixer)
@@ -155,7 +144,7 @@ SDL2 C shared library via the foreign function interface.")
      ("pkg-config" ,pkg-config)
      ("texinfo" ,texinfo)))
   (inputs
-   `(("guile" ,guile-next)))
+   `(("guile" ,target-guile)))
   (propagated-inputs
    `(("guile-opengl" ,guile-opengl)
      ("guile-sdl2" ,guile-sdl2)))
-- 
cgit v1.2.3