From mboxrd@z Thu Jan 1 00:00:00 1970 From: ng0 Subject: [PATCH 2/2] gnu: lispf4: Fix the searchpath for SYSATOMS. Date: Tue, 4 Oct 2016 22:33:22 +0000 Message-ID: <20161004223322.19523-3-ngillmann@runbox.com> References: <20161004223322.19523-1-ngillmann@runbox.com> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:41145) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1brYHl-0007U6-6c for guix-devel@gnu.org; Tue, 04 Oct 2016 18:34:08 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1brYHh-0008Us-RA for guix-devel@gnu.org; Tue, 04 Oct 2016 18:34:03 -0400 Received: from aibo.runbox.com ([91.220.196.211]:45384) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1brYHh-0008Un-L3 for guix-devel@gnu.org; Tue, 04 Oct 2016 18:34:01 -0400 Received: from [10.9.9.211] (helo=mailfront11.runbox.com) by bars.runbox.com with esmtp (Exim 4.71) (envelope-from ) id 1brYHg-0007mN-VO for guix-devel@gnu.org; Wed, 05 Oct 2016 00:34:01 +0200 In-Reply-To: <20161004223322.19523-1-ngillmann@runbox.com> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: "Guix-devel" To: guix-devel@gnu.org * 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