From 4fa3f7967fb3ea271b52a2fd78c0bcc3feef795e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sat, 14 Oct 2017 15:21:22 +0200 Subject: [PATCH] gnu: guile-sdl: Remove 2.0-specific bits. * gnu/packages/sdl.scm (guile-sdl)[arguments]: Add #:modules. In 'fix-env-and-patch' phase, use 'open-pipe*' to determine the effective version; use it in makefiles. --- gnu/packages/sdl.scm | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) diff --git a/gnu/packages/sdl.scm b/gnu/packages/sdl.scm index 0962ffe985..bdf36f3b02 100644 --- a/gnu/packages/sdl.scm +++ b/gnu/packages/sdl.scm @@ -409,7 +409,12 @@ directory.") '(#:configure-flags (list (string-append "--with-sdl-prefix=" (assoc-ref %build-inputs "sdl-union"))) + #:modules ((ice-9 popen) + (guix build utils) + (guix build gnu-build-system)) + #:parallel-build? #f ; parallel build fails + #:phases (modify-phases %standard-phases (add-before 'configure 'fix-env-and-patch @@ -418,9 +423,16 @@ directory.") ;; SDL_image needs to dlopen libjpeg in the test suite. (setenv "LD_LIBRARY_PATH" (string-append (assoc-ref inputs "libjpeg") "/lib")) - ;; Change the site directory /site/2.0 like Guile expects. + + ;; Change the site directory /site/X.Y like Guile expects. (substitute* "build-aux/guile-baux/re-prefixed-site-dirs" - (("\"/site\"") "\"/site/2.0\"")) + (("\"/site\"") + (let ((effective + (read + (open-pipe* OPEN_READ + "guile" "-c" + "(write (effective-version))")))) + (string-append "\"/site/" effective "\"")))) ;; Skip tests that rely on sound support, which is unavailable in ;; the build environment.