1 files changed, 12 insertions(+), 10 deletions(-)

M gnu/packages/piet.scm

@@ 21,6 21,7 @@
 (define-module (gnu packages piet)
   #:use-module (guix packages)
   #:use-module (guix download)
+  #:use-module (guix gexp)
   #:use-module (guix git-download)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix build-system gnu)


@@ 44,16 45,17 @@
                 "0nl59fhdqqr7nslxdirdn8nvlq5wws67c7jyx2ckbmxbc9h8bv9d"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-after 'install 'wrap-binaries
-           (lambda* (#:key inputs outputs #:allow-other-keys)
-             (let ((out (assoc-ref outputs "out")))
-               (wrap-program (string-append out "/bin/npietedit")
-                 `("PATH" ":" prefix
-                   (,(dirname
-                      (search-input-file inputs "bin/wish")))))
-               #t))))))
+     (list #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'install 'wrap-binaries
+                 (lambda* (#:key inputs outputs #:allow-other-keys)
+                   (let ((out (assoc-ref outputs "out")))
+                     (wrap-program (string-append out
+                                                  "/bin/npietedit")
+                       `("PATH" ":" prefix
+                         (,(dirname
+                            (search-input-file
+                             inputs "bin/wish")))))))))))
     (inputs
      (list gd giflib libpng tk))
     (native-inputs (list groff))