| role ProxyTweak is Proxy { | |
| method new(:&FETCH!, :&STORE!, *%_) is raw { | |
| my $self := self.Proxy::new(:&FETCH,:&STORE); | |
| $self.VAR.TWEAK(|%_); | |
| $self | |
| } | |
| } | |
| class A does ProxyTweak { |
| $ perl Configure.pl --gen-moar --make-install; date | |
| ===ATTENTION=== | |
| No --prefix supplied, building and installing to /Users/liz/Github/rakudo.moar/install | |
| Found /Users/liz/Github/rakudo.moar/install/bin/nqp-m (backend moar) | |
| Using /Users/liz/Github/rakudo.moar/install/bin/nqp-m (version 2020.06-16-g6bdf69921 / MoarVM 2020.06-34-gd564695f6). | |
| Cleaning up ... | |
| +++ Checking for moar NQP version | |
| +++ Expanding gen/moar/main-version.nqp | |
| +++ Generating gen/moar/rakudo.nqp | |
| +++ Generating gen/moar/Grammar.nqp |
| diff --git a/src/Perl6/Metamodel/MethodContainer.nqp b/src/Perl6/Metamodel/MethodContainer.nqp | |
| index 50b33a83b..f25b061a4 100644 | |
| --- a/src/Perl6/Metamodel/MethodContainer.nqp | |
| +++ b/src/Perl6/Metamodel/MethodContainer.nqp | |
| @@ -14,11 +14,11 @@ role Perl6::Metamodel::MethodContainer { | |
| has %!cache; | |
| # Add a method. | |
| - method add_method($obj, $name, $code_obj) { | |
| + method add_method($obj, $name, $code_obj, :$force) { |
| diff --git a/src/core.c/Seq.pm6 b/src/core.c/Seq.pm6 | |
| index 8b06b1628..f9d5f1643 100644 | |
| --- a/src/core.c/Seq.pm6 | |
| +++ b/src/core.c/Seq.pm6 | |
| @@ -5,6 +5,9 @@ my class Seq is Cool does Iterable does Sequence { | |
| # way through. Can only be obtained once. | |
| has Iterator $!iter; | |
| + # The number of values that have been produced | |
| + has int $!produced; |
| proto sub slurp(|) {*} | |
| multi sub slurp(*%_) { $*ARGFILES.slurp(|%_) } | |
| multi sub slurp(IO::Handle:D $fh, *%_) { $fh.slurp(|%_) } | |
| multi sub slurp(IO() $path, *%_) { $path.slurp(|%_) } | |
| proto sub spurt($, $, |) {*} | |
| multi sub spurt(IO::Handle:D $fh, $data, *%_) { $fh.spurt($data, |%_) } | |
| multi sub spurt(IO() $path, $data, *%_) { $path.spurt($data, |%_) } |
| my %b is Bag = "aa.txt".IO.lines.map: -> $line { | |
| my int @evenodd = 0,0; | |
| ++@evenodd[$_ % 2] for $line.words.skip(2).head(5); | |
| @evenodd.join(" "); | |
| } | |
| for %b.sort -> (:$key, :$value) { | |
| say "$key --> $value" | |
| } |
The people mentioned here have been contributors to the various stages of the development of the Raku Programming Language, but unfortunately have departed this existence. We thank them for their contributions and hope to keep their memory alive here, as well as other places.
In the early days of the Rakudo implementation, Jonathan Scott Duff implemented many of the NQP and Raku features that we take for granted now. In later years, he kept a very observant eye on developments in
Sad news. Our dear friend Jeff Goff has died in a scuba diving accident. He told me and many others about how he looked forward to learning more about scuba diving, getting more experienced in it, during the JoCo Cruise ( https://jococruise2020.sched.com/jeff_goff.1zitf4ff ). Apparantly, something went horribly wrong.
I have spent many hours with Jeff, not in the least when he broke his hip in Spain during the Perl conference in Granada, and I took it upon me to take care of several things for him. He has stayed as a guest at least twice in my home. I have learned to know Jeff as a warm, loving man, with a great sense of humor, wonderful ideas, and always helpful. Last time I saw him when he took over from me at the Perl & Raku booth at FOSDEM in Brussels.
Needless to say, but it needs to be said anyway: Liz and I will miss him terribly. The Perl & Raku communities will miss him dearly, as he was one volunteer who has done a lot of things to make things happen, to make things better.
Please do not
| - QAST::Block(:cuid(1)) <sunk> :statement_id<1> :outer<?> :in_stmt_mod<?> :count<?> :code_object<?> | |
| - QAST::Stmts | |
| - QAST::Var(lexical $whatevercode_arg_1 :decl(static)) | |
| - QAST::Var(local __lowered_lex_1 :decl(var)) :whatever-var<?> | |
| - QAST::Var(local __lowered_param__1 :decl(param)) | |
| - QAST::Op(bind) | |
| - QAST::Var(local __lowered_param__1) | |
| - QAST::Op(hllize) | |
| - QAST::Var(local __lowered_param__1) | |
| - QAST::Op(bind) |
| looking up EXPORTHOW | |
| looking up Rakudo::Internals::CompilerServices | |
| looking up Block | |
| looking up Metamodel::DefiniteHOW | |
| looking up Failure | |
| looking up List | |
| looking up Map | |
| looking up X::Attribute::Required | |
| looking up Block | |
| looking up Mu |
