gnu: rakudo: Remove trailing booleans.

* gnu/packages/perl6.scm (rakudo)[source]: Reindent.
[arguments]: Remove trailing booleans. Reindent.
[native-search-paths]: Reindent.

Signed-off-by: Efraim Flashner <efraim@flashner.co.il>
This commit is contained in:
Paul A. Patience 2022-04-29 05:17:17 +00:00 committed by Efraim Flashner
parent 3e1e131610
commit d154fa0bae
No known key found for this signature in database
GPG Key ID: 41AAE7DCCA3D8351
1 changed files with 17 additions and 20 deletions

View File

@ -161,13 +161,13 @@ regular expression engine for the virtual machine.")
(name "rakudo") (name "rakudo")
(version "2019.03.1") (version "2019.03.1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://rakudo.perl6.org/downloads/rakudo/rakudo-" (uri (string-append "https://rakudo.perl6.org/downloads/rakudo/rakudo-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1nllf69v8xr6v3kkj7pmryg11n5m3ajfkr7j72pvhrgnjy8lv3r1")))) "1nllf69v8xr6v3kkj7pmryg11n5m3ajfkr7j72pvhrgnjy8lv3r1"))))
(build-system perl-build-system) (build-system perl-build-system)
(arguments (arguments
'(#:phases '(#:phases
@ -175,16 +175,14 @@ regular expression engine for the virtual machine.")
(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 'patch-source-shebangs 'patch-more-shebangs (add-after 'patch-source-shebangs 'patch-more-shebangs
(lambda _ (lambda _
(substitute* '("tools/build/create-js-runner.pl" (substitute* '("tools/build/create-js-runner.pl"
"tools/build/create-moar-runner.p6" "tools/build/create-moar-runner.p6"
"tools/build/create-jvm-runner.pl" "tools/build/create-jvm-runner.pl"
"src/core/Proc.pm6") "src/core/Proc.pm6")
(("/bin/sh") (which "sh"))) (("/bin/sh") (which "sh")))))
#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"))
@ -197,23 +195,22 @@ regular expression engine for the virtual machine.")
;; modules systemwide. See: https://github.com/ugexe/zef/issues/117 ;; modules systemwide. See: https://github.com/ugexe/zef/issues/117
(add-after 'install 'install-dist-tool (add-after 'install 'install-dist-tool
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(dest (string-append out "/share/perl6/tools"))) (dest (string-append out "/share/perl6/tools")))
(install-file "tools/install-dist.p6" dest) (install-file "tools/install-dist.p6" dest)
(substitute* (string-append dest "/install-dist.p6") (substitute* (string-append dest "/install-dist.p6")
(("/usr/bin/env perl6") (("/usr/bin/env perl6")
(string-append out "/bin/perl6")))) (string-append out "/bin/perl6")))))))))
#t)))))
(inputs (inputs
(list moarvm nqp openssl)) (list moarvm nqp openssl))
(home-page "https://rakudo.org/") (home-page "https://rakudo.org/")
(native-search-paths (native-search-paths
(list (search-path-specification (list (search-path-specification
(variable "PERL6LIB") (variable "PERL6LIB")
(separator ",") (separator ",")
(files '("share/perl6/lib" (files '("share/perl6/lib"
"share/perl6/site/lib" "share/perl6/site/lib"
"share/perl6/vendor/lib"))))) "share/perl6/vendor/lib")))))
(synopsis "Perl 6 Compiler") (synopsis "Perl 6 Compiler")
(description "Rakudo Perl is a compiler that implements the Perl 6 (description "Rakudo Perl is a compiler that implements the Perl 6
specification and runs on top of several virtual machines.") specification and runs on top of several virtual machines.")