@@ -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 @@ (define-public npiet
"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))