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