* gnu/packages/lisp.scm (lispf4)[arguments]: Fix reference to SYSATOMS.
This is a solution to and closes #22732.
---
gnu/packages/lisp.scm | 31 +++++++++++++++++++++----------
1 file changed, 21 insertions(+), 10 deletions(-)
diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm
index 7836d48..04fea72 100644
--- a/gnu/packages/lisp.scm
+++ b/gnu/packages/lisp.scm
@@ -473,18 +473,29 @@ interface.")
#:tests? #f ; No 'check phase
#:phases
(modify-phases %standard-phases
+ ;; TODO: SYSATOMS, BASIC.IMG should not be installed into $out/bin:
+ ;;
https://lists.gnu.org/archive/html/guix-devel/2016-10/msg00213.html
(delete 'configure)
+ (add-before 'build 'fix-reference-to-SYSATOMS
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (bin (string-append out "/bin")))
+ (substitute* "lispf42.c"
+ (("#define c_b98.*")
+ (string-append "#define c_b98 \""
+ bin "/SYSATOMS\"\n")))
+ (install-file "SYSATOMS" bin)
+ #t)))
(replace 'install
- (lambda* (#:key outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (bin (string-append out "/bin"))
- (doc (string-append (assoc-ref outputs "doc")
- "/share/doc/lispf4")))
- (install-file "lispf4" bin)
- (install-file "SYSATOMS" bin)
- (install-file "BASIC.IMG" bin)
- (copy-recursively "Documentation" doc))
- #t)))))
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (bin (string-append out "/bin"))
+ (doc (string-append (assoc-ref outputs "doc")
+ "/share/doc/lispf4")))
+ (install-file "lispf4" bin)
+ (install-file "BASIC.IMG" bin)
+ (copy-recursively "Documentation" doc))
+ #t)))))
(synopsis "InterLisp interpreter")
(description
"LISPF4 is an InterLisp interpreter written in FORTRAN by Mats Nordstrom
--
2.10.1
