From eb12f3fd8bee99920118ec802ffbac8f1ab676b9 Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Sun, 16 Jul 2023 02:00:00 +0200 Subject: gnu: wla-dx: Use G-expressions. * gnu/packages/assembly.scm (wla-dx)[arguments]: Rewrite as G-expressions. --- gnu/packages/assembly.scm | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) (limited to 'gnu/packages/assembly.scm') diff --git a/gnu/packages/assembly.scm b/gnu/packages/assembly.scm index 488d0725eb..42c95876f7 100644 --- a/gnu/packages/assembly.scm +++ b/gnu/packages/assembly.scm @@ -359,16 +359,17 @@ (define-public wla-dx (build-system cmake-build-system) (native-inputs (list python-sphinx)) ; to generate man pages (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'check 'copy-tests-to-build-directory - (lambda _ - (copy-recursively "../source/tests" "tests"))) - (replace 'check - (lambda* (#:key tests? #:allow-other-keys) - (let ((sh (which "sh"))) - (when tests? - (invoke sh "../source/run_tests.sh")))))))) + (list + #:phases + #~(modify-phases %standard-phases + (add-before 'check 'copy-tests-to-build-directory + (lambda _ + (copy-recursively "../source/tests" "tests"))) + (replace 'check + (lambda* (#:key tests? #:allow-other-keys) + (let ((sh (which "sh"))) + (when tests? + (invoke sh "../source/run_tests.sh")))))))) (home-page "https://github.com/vhelin/wla-dx") (synopsis "Assemblers for various processors") (description "WLA DX is a set of tools to assemble assembly files to -- cgit v1.2.3