From fed33f701367cae49cfa1a4c619dade3d735b575 Mon Sep 17 00:00:00 2001
From: Liliana Marie Prikler <liliana.prikler@gmail.com>
Date: Sat, 9 Oct 2021 11:12:00 +0200
Subject: gnu: guile-sdl2: Build with guile-3.0.

* gnu/packages/sdl.scm (guile-sdl2)[native-inputs]: Use guile-3.0 as guile.
(guile-2.2): New variable.
(guile-3.0): Deprecate in favor of guile-sdl2.
---
 gnu/packages/sdl.scm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'gnu/packages/sdl.scm')

diff --git a/gnu/packages/sdl.scm b/gnu/packages/sdl.scm
index d8f8c0e731..3e5b928012 100644
--- a/gnu/packages/sdl.scm
+++ b/gnu/packages/sdl.scm
@@ -638,7 +638,7 @@ sound and device input (keyboards, joysticks, mice, etc.).")
     (arguments
      '(#:make-flags '("GUILE_AUTO_COMPILE=0")))
     (native-inputs
-     `(("guile" ,guile-2.2)
+     `(("guile" ,guile-3.0)
        ("pkg-config" ,pkg-config)))
     (inputs
      `(("sdl2" ,sdl2)
@@ -653,13 +653,16 @@ The bindings are written in pure Scheme using Guile's foreign function
 interface.")
     (license lgpl3+)))
 
-(define-public guile3.0-sdl2
+(define-public guile2.2-sdl2
   (package/inherit guile-sdl2
-    (name "guile3.0-sdl2")
+    (name "guile2.2-sdl2")
     (native-inputs
-     `(("guile" ,guile-3.0)
+     `(("guile" ,guile-2.2)
        ("pkg-config" ,pkg-config)))))
 
+(define-public guile3.0-sdl2
+  (deprecated-package "guile3.0-sdl2" guile-sdl2))
+
 (define-public sdl2-cs
   (let ((commit "1a3556441e1394eb0b5d46aeb514b8d1090b93f8"))
     (package
-- 
cgit v1.2.3