gnu: guile-opengl: Patch dynamic-link call for 'libGLU' to glu.

* gnu/packages/gl.scm (guile-opengl)[inputs]: Add glu.
  [arguments]: Patch dynamic-link call for 'libGLU' to glu instead of
  mesa in the 'patch-dynamic-link' phase.
This commit is contained in:
宋文武 2015-06-05 12:17:18 +08:00
parent 230fda86a5
commit 4becc79273
1 changed files with 2 additions and 1 deletions

View File

@ -405,6 +405,7 @@ extension functionality is exposed in a single header file.")
(native-inputs `(("pkg-config" ,pkg-config))) (native-inputs `(("pkg-config" ,pkg-config)))
(inputs `(("guile" ,guile-2.0) (inputs `(("guile" ,guile-2.0)
("mesa" ,mesa) ("mesa" ,mesa)
("glu" ,glu)
("freeglut" ,freeglut))) ("freeglut" ,freeglut)))
(arguments (arguments
'(#:phases (alist-cons-before '(#:phases (alist-cons-before
@ -419,7 +420,7 @@ extension functionality is exposed in a single header file.")
;; Replace dynamic-link calls for libGL, libGLU, and ;; Replace dynamic-link calls for libGL, libGLU, and
;; libglut with absolute paths to the store. ;; libglut with absolute paths to the store.
(dynamic-link-substitute "glx/runtime.scm" "GL" "mesa") (dynamic-link-substitute "glx/runtime.scm" "GL" "mesa")
(dynamic-link-substitute "glu/runtime.scm" "GLU" "mesa") (dynamic-link-substitute "glu/runtime.scm" "GLU" "glu")
(dynamic-link-substitute "glut/runtime.scm" "glut" (dynamic-link-substitute "glut/runtime.scm" "glut"
"freeglut")) "freeglut"))
%standard-phases))) %standard-phases)))