[PATCH 2/2] gnu: lispf4: Fix the searchpath for SYSATOMS.

[ng0]

* 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