diff mbox

gnu: lispf4: Fix reference to SYSATOMS.

Message ID 20161005093100.9813-1-ngillmann@runbox.com
State New
Headers show

Commit Message

ng0 Oct. 5, 2016, 9:31 a.m. UTC
* 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 mbox

Patch

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