[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH 2/2] gnu: lispf4: Fix the searchpath for SYSATOMS.
From: |
ng0 |
Subject: |
[PATCH 2/2] gnu: lispf4: Fix the searchpath for SYSATOMS. |
Date: |
Tue, 4 Oct 2016 22:33:22 +0000 |
* gnu/packages/lisp.scm (lispf4)[arguments]: Fix the searchpath for SYSATOMS.
---
gnu/packages/lisp.scm | 14 +++++++++++++-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm
index 7836d48..d66fb8b 100644
--- a/gnu/packages/lisp.scm
+++ b/gnu/packages/lisp.scm
@@ -474,8 +474,20 @@ interface.")
#:phases
(modify-phases %standard-phases
(delete 'configure)
+ (add-before 'build 'fix-searchpath
+ (lambda _
+ (substitute* "Lispf42.f"
+ (("NAME='SYSATOMS'")
+ (string-append "NAME='" (assoc-ref %outputs "out")
+ "/bin/SYSATOMS'")))
+ (substitute* "lispf42.c"
+ (("SYSATOMS")
+ (string-append (assoc-ref %outputs "out") "/bin/SYSATOMS"))
+ ;;(("8+1") "72+8+1"))))
+ (("c_b98_st") "c_b98")
+ (("c_b98.val") ""))))
(replace 'install
- (lambda* (#:key outputs #:allow-other-keys)
+ (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(doc (string-append (assoc-ref outputs "doc")
--
2.10.0
Re: [PATCH] gnu: lispf4 fixes., ng0, 2016/10/05
[PATCH] gnu: lispf4: Fix reference to SYSATOMS., ng0, 2016/10/05