gnu: racket: Fix incompatibility with libedit.

The former patching made racket detecting libedit as the old 2.11 version,
which leads to failure:
<https://lists.gnu.org/archive/html/help-guix/2018-09/msg00027.html>.

* gnu/packages/scheme.scm (racket)[arguments]: Patch the 'ffi-lib' call of
libedit using 'PLT_READLINE_LIB'.
This commit is contained in:
宋文武 2018-09-13 19:28:36 +08:00
parent ac4d2ec81a
commit 26700caed9
No known key found for this signature in database
GPG key ID: 26525665AE727D37

View file

@ -460,6 +460,9 @@ (define-public racket
(substitute* "share/pkgs/math-lib/math/private/bigfloat/mpfr.rkt" (substitute* "share/pkgs/math-lib/math/private/bigfloat/mpfr.rkt"
(("ffi-lib libmpfr-so") (("ffi-lib libmpfr-so")
(format #f "ffi-lib \"~a\"" (find-so "libmpfr")))) (format #f "ffi-lib \"~a\"" (find-so "libmpfr"))))
(substitute* "share/pkgs/readline-lib/readline/rktrl.rkt"
(("\\(getenv \"PLT_READLINE_LIB\"\\)")
(format #f "\"~a\"" (find-so "libedit"))))
(for-each (for-each
(lambda (x) (apply patch-ffi-libs x)) (lambda (x) (apply patch-ffi-libs x))
'(("share/pkgs/draw-lib/racket/draw/unsafe/cairo-lib.rkt" '(("share/pkgs/draw-lib/racket/draw/unsafe/cairo-lib.rkt"
@ -487,9 +490,7 @@ (define-public racket
("share/pkgs/gui-lib/mred/private/wx/gtk/gl-context.rkt" ("share/pkgs/gui-lib/mred/private/wx/gtk/gl-context.rkt"
("libGL")) ("libGL"))
("share/pkgs/sgl/gl.rkt" ("share/pkgs/sgl/gl.rkt"
("libGL" "libGLU")) ("libGL" "libGLU")))))
("share/pkgs/readline-lib/readline/rktrl.rkt"
("libedit")))))
(chdir "src") (chdir "src")
#t)) #t))
(add-after 'unpack 'patch-/bin/sh (add-after 'unpack 'patch-/bin/sh