From b4dc8eb4adff9d824ff7df704e134964b3b47396 Mon Sep 17 00:00:00 2001 From: Vinicius Monego Date: Sat, 15 Feb 2025 20:36:48 -0300 Subject: [PATCH] gnu: librecad: Use G-Expressions. * gnu/packages/engineering.scm (librecad)[arguments]: Use G-Expressions. Change-Id: Ib796867b2282eb52878d0304fb391f1007cc13a0 --- gnu/packages/engineering.scm | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/gnu/packages/engineering.scm b/gnu/packages/engineering.scm index 0c9b19e370a81892908d158fd57aec4bfd5072fe..a5dbe51198d0fd30c56d9cb32f1f3ef0d2f2bccf 100644 --- a/gnu/packages/engineering.scm +++ b/gnu/packages/engineering.scm @@ -218,18 +218,18 @@ their devices.") "1nal6xfh9qcvn96gapb1jn3nyz3n3wwidqdc864rv38lrigms66i")))) (build-system qt-build-system) (arguments - '(#:test-target "check" - #:phases - (modify-phases %standard-phases - (replace 'configure - (lambda* (#:key inputs #:allow-other-keys) - (system* "qmake" (string-append "BOOST_DIR=" - (assoc-ref inputs "boost"))))) + (list + #:test-target "check" + #:phases + #~(modify-phases %standard-phases + (replace 'configure + (lambda _ + (system* "qmake" (string-append "BOOST_DIR=" + #$(this-package-input "boost"))))) (replace 'install (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (bin (string-append out "/bin")) - (share (string-append out "/share/librecad"))) + (let ((bin (string-append #$output "/bin")) + (share (string-append #$output "/share/librecad"))) (mkdir-p bin) (install-file "unix/librecad" bin) (mkdir-p share)