11/11: gnu: tcl-tls: Use a gexp.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 8079bd3da8eb5c185b447e2e1f89bb42f052f3cf
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri May 6 15:18:52 2022 +0200

    gnu: tcl-tls: Use a gexp.
    
    * gnu/packages/tcl.scm (tcl-tls)[arguments]: Use a gexp.
---
 gnu/packages/tcl.scm | 21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

diff --git a/gnu/packages/tcl.scm b/gnu/packages/tcl.scm
index 9dceee7184..4cbc9d84b4 100644
--- a/gnu/packages/tcl.scm
+++ b/gnu/packages/tcl.scm
@@ -449,18 +449,17 @@ debugging tools.")
     (inputs (list tcl))
     (propagated-inputs (list openssl))
     (arguments
-     '(#:configure-flags
-       (let ((out (assoc-ref %outputs "out"))
-             (tcl (assoc-ref %build-inputs "tcl"))
-             (ssllib (assoc-ref %build-inputs "openssl")))
-         (list "--with-ssl=libressl"
-               (string-append "-with-ssl-dir=" ssllib)
-               (string-append "--with-tcl=" tcl "/lib")
-               (string-append "--with-tclinclude=" tcl "/include")
-               (string-append "--exec-prefix=" out)
-               (string-append "--mandir=" out "/share/man")))
+     (list #:configure-flags
+           #~(let ((tcl #$(this-package-input "tcl")))
+               (list "--with-ssl=libressl"
+                     (string-append "-with-ssl-dir="
+                                    #$(this-package-input "openssl"))
+                     (string-append "--with-tcl=" tcl "/lib")
+                     (string-append "--with-tclinclude=" tcl "/include")
+                     (string-append "--exec-prefix=" #$output)
+                     (string-append "--mandir=" #$output "/share/man")))
 
-       #:test-target "test"))
+           #:test-target "test"))
     (search-paths
      (list (search-path-specification
             (variable "TCLLIBPATH")