TakeV
/
guix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

gnu: nqp: Remove trailing booleans. 

* gnu/packages/perl6.scm (nqp)[source]: Reindent.
[snippet]: Remove trailing boolean (and therefore the 'begin').
[arguments]: Remove trailing booleans. Reindent.

Signed-off-by: Efraim Flashner <efraim@flashner.co.il>
This commit is contained in:
Paul A. Patience 2022-04-29 05:17:10 +00:00 committed by Efraim Flashner
parent 603dcdfbce
commit 3e1e131610
No known key found for this signature in database
GPG Key ID: 41AAE7DCCA3D8351
1 changed files with 14 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
gnu/packages/perl6.scm
View File

@ -100,17 +100,16 @@ with native libraries.
(name "nqp") (name "nqp")
(version "2019.03") (version "2019.03")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://rakudo.perl6.org/downloads/nqp/nqp-" (uri (string-append "https://rakudo.perl6.org/downloads/nqp/nqp-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"183zhll13fx416s3hkg4bkvib77kyr857h0nydgrl643fpacxp83")) "183zhll13fx416s3hkg4bkvib77kyr857h0nydgrl643fpacxp83"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
'(begin '(delete-file-recursively "3rdparty"))))
(delete-file-recursively "3rdparty") #t))))
(build-system perl-build-system) (build-system perl-build-system)
(arguments (arguments
'(#:phases '(#:phases
@ -125,21 +124,18 @@ with native libraries.
"tools/build/gen-moar-runner.pl" "tools/build/gen-moar-runner.pl"
"t/nqp/111-spawnprocasync.t" "t/nqp/111-spawnprocasync.t"
"t/nqp/113-run-command.t") "t/nqp/113-run-command.t")
(("/bin/sh") (which "sh"))) (("/bin/sh") (which "sh")))))
#t))
(add-after 'unpack 'patch-source-date (add-after 'unpack 'patch-source-date
(lambda _ (lambda _
(substitute* "tools/build/gen-version.pl" (substitute* "tools/build/gen-version.pl"
(("gmtime") "gmtime(0)")) (("gmtime") "gmtime(0)"))))
#t))
(add-after 'unpack 'remove-failing-test (add-after 'unpack 'remove-failing-test
;; One subtest fails for unknown reasons ;; One subtest fails for unknown reasons
(lambda _ (lambda _
(delete-file "t/nqp/019-file-ops.t") (delete-file "t/nqp/019-file-ops.t")))
#t))
(replace 'configure (replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")) (let ((out (assoc-ref outputs "out"))
(moar (assoc-ref inputs "moarvm"))) (moar (assoc-ref inputs "moarvm")))
(invoke "perl" "Configure.pl" (invoke "perl" "Configure.pl"
"--backends=moar" "--backends=moar"