me/guix
Archived
1
0
Fork 0
Code Activity

gnu: apl: Use G-expressions.

Browse source 
* gnu/packages/apl.scm (apl)[arguments]: Use G-expressions.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Paul A. Patience 2022-05-02 11:17:22 +00:00 • committed by Ludovic Courtès
parent fe6ba5e902
commit 67b10f18c7
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 17 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
gnu/packages/apl.scm
View file

@ -23,6 +23,7 @@
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix svn-download) #:use-module (guix svn-download)
#:use-module (guix gexp)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (gnu packages gettext) #:use-module (gnu packages gettext)
@ -54,22 +55,22 @@
readline readline
sqlite)) sqlite))
(arguments (arguments
`(#:configure-flags (list (string-append (list #:configure-flags #~(list (string-append
"--with-sqlite3=" "--with-sqlite3="
(assoc-ref %build-inputs "sqlite"))) #$(this-package-input "sqlite")))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'configure 'fix-configure (add-before 'configure 'fix-configure
(lambda _ (lambda _
(substitute* "buildtag.sh" (substitute* "buildtag.sh"
;; Don't exit on failed SVN-related calls. ;; Don't exit on failed SVN-related calls.
(("^ +return 0\n") "") (("^ +return 0\n") "")
;; Manually set the SVN revision, since the directory is ;; Manually set the SVN revision, since the directory is
;; unversioned and we know it anyway. ;; unversioned and we know it anyway.
(("^SVNINFO=.*") (("^SVNINFO=.*")
,(string-append "SVNINFO=" (number->string revision) "\n")) (string-append "SVNINFO=" #$(number->string revision) "\n"))
;; Requires running ‘svn info’ on a versioned directory. ;; Requires running ‘svn info’ on a versioned directory.
(("\\\\\"\\$ARCHIVE_SVNINFO\\\\\"") "\\\"\\\""))))))) (("\\\\\"\\$ARCHIVE_SVNINFO\\\\\"") "\\\"\\\"")))))))
(synopsis "APL interpreter") (synopsis "APL interpreter")
(description (description
"GNU APL is a free interpreter for the programming language APL. It is "GNU APL is a free interpreter for the programming language APL. It is