summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPaul A. Patience <paul@apatience.com>2022-05-02 11:17:22 +0000
committerGuix Patches Tester <>2022-05-02 12:31:11 +0100
commit0eeb33bdcb5a009648649dc9b8262f371be18db6 (patch)
treec70b6bcb037d1a9d0d317855c2263c2208c90bf5
parent9fed1fffbd4f9481b7f2f570e2ab3c222c3b9c70 (diff)
downloadguix-patches-0eeb33bdcb5a009648649dc9b8262f371be18db6.tar
guix-patches-0eeb33bdcb5a009648649dc9b8262f371be18db6.tar.gz
gnu: apl: Use G-expressions.
* gnu/packages/apl.scm (apl)[arguments]: Use G-expressions.
-rw-r--r--gnu/packages/apl.scm33
1 files changed, 17 insertions, 16 deletions
diff --git a/gnu/packages/apl.scm b/gnu/packages/apl.scm
index 0a741b0295..e483876cc5 100644
--- a/gnu/packages/apl.scm
+++ b/gnu/packages/apl.scm
@@ -23,6 +23,7 @@
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix git-download)
#:use-module (guix svn-download)
+ #:use-module (guix gexp)
#:use-module (guix packages)
#:use-module (guix build-system gnu)
#:use-module (gnu packages gettext)
@@ -54,22 +55,22 @@
readline
sqlite))
(arguments
- `(#:configure-flags (list (string-append
- "--with-sqlite3="
- (assoc-ref %build-inputs "sqlite")))
- #:phases
- (modify-phases %standard-phases
- (add-before 'configure 'fix-configure
- (lambda _
- (substitute* "buildtag.sh"
- ;; Don't exit on failed SVN-related calls.
- (("^ +return 0\n") "")
- ;; Manually set the SVN revision, since the directory is
- ;; unversioned and we know it anyway.
- (("^SVNINFO=.*")
- ,(string-append "SVNINFO=" (number->string revision) "\n"))
- ;; Requires running ‘svn info’ on a versioned directory.
- (("\\\\\"\\$ARCHIVE_SVNINFO\\\\\"") "\\\"\\\"")))))))
+ (list #:configure-flags #~(list (string-append
+ "--with-sqlite3="
+ #$(this-package-input "sqlite")))
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-before 'configure 'fix-configure
+ (lambda _
+ (substitute* "buildtag.sh"
+ ;; Don't exit on failed SVN-related calls.
+ (("^ +return 0\n") "")
+ ;; Manually set the SVN revision, since the directory is
+ ;; unversioned and we know it anyway.
+ (("^SVNINFO=.*")
+ (string-append "SVNINFO=" #$(number->string revision) "\n"))
+ ;; Requires running ‘svn info’ on a versioned directory.
+ (("\\\\\"\\$ARCHIVE_SVNINFO\\\\\"") "\\\"\\\"")))))))
(synopsis "APL interpreter")
(description
"GNU APL is a free interpreter for the programming language APL. It is