ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-14 15:10:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: guile-opengl: Update to 0.2.0.

Browse source 
* gnu/packages/gl.scm (guile-opengl): Update to 0.2.0. Remove obsolete build
system hack.
(guile3.0-opengl): Remove obsolete build system hack.
This commit is contained in:
David Thompson 2023-05-13 07:42:21 -04:00
parent 882ca2011e
commit 6af7a94446
No known key found for this signature in database
GPG key ID: 8328C7470FF1D807
1 changed files with 2 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
gnu/packages/gl.scm
View file

@ -679,25 +679,19 @@ (define-public glew
(define-public guile-opengl (define-public guile-opengl
(package (package
(name "guile-opengl") (name "guile-opengl")
(version "0.1.0") (version "0.2.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://gnu/guile-opengl/guile-opengl-" (uri (string-append "mirror://gnu/guile-opengl/guile-opengl-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"13qfx4xh8baryxqrv986l848ygd0piqwm6s2s90pxk9c0m9vklim")))) "0rbc2wf9x63ilj3n85h8wyllzc2b22abmhs2p2ghjgc253n8gw5q"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (list pkg-config)) (native-inputs (list pkg-config))
(inputs (list guile-2.2 mesa glu freeglut)) (inputs (list guile-2.2 mesa glu freeglut))
(arguments (arguments
'(#:phases (modify-phases %standard-phases '(#:phases (modify-phases %standard-phases
(add-after 'configure 'patch-makefile
(lambda _
;; Install compiled Guile files in the expected place.
(substitute* '("Makefile")
(("^godir = .*$")
"godir = $(moddir)\n"))))
(add-before 'build 'patch-dynamic-link (add-before 'build 'patch-dynamic-link
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(substitute* "gl/runtime.scm" (substitute* "gl/runtime.scm"
@ -728,16 +722,6 @@ (define-public guile3.0-opengl
(package (package
(inherit guile-opengl) (inherit guile-opengl)
(name "guile3.0-opengl") (name "guile3.0-opengl")
(arguments
(substitute-keyword-arguments (package-arguments guile-opengl)
((#:phases phases)
`(modify-phases ,phases
(add-after 'unpack 'build-with-guile-3.0
(lambda _
(substitute* "configure"
(("_guile_versions_to_search=\"")
"_guile_versions_to_search=\"3.0 "))
#t))))))
(inputs (inputs
(list guile-3.0 mesa glu freeglut)))) (list guile-3.0 mesa glu freeglut))))