~bduggan/raku-dawa

49a38fc63e32d83ffe7ee5e19b7050d30ec957f7 — Brian Duggan 7 months ago 816f8b8
fix ..
2 files changed, 6 insertions(+), 2 deletions(-)

M lib/Dawa.rakumod
M t/04-syntax.rakutest
M lib/Dawa.rakumod => lib/Dawa.rakumod +1 -1
@@ 101,7 101,7 @@ sub EXPORT(|) {
    method statement(Mu $/) {
      my $inner := callsame;
      if nqp::istype($inner, QAST::Op)
         && (nqp::istype($inner.returns, $Pair) || $inner.name eq '&infix:«=>»') {
      && (nqp::istype($inner.returns, $Pair) || $inner.name eq any( '&infix:«=>»', '&infix:<..>' )) {
            $/.make: $inner;
            return;
      }

M t/04-syntax.rakutest => t/04-syntax.rakutest +5 -1
@@ 2,7 2,7 @@ use Test;

use Dawa;

plan 3;
plan 4;

my %y = ( x => 2 );



@@ 22,3 22,7 @@ is $x, 6, "promise worked";
my %z := { a => 1 }

is %z<a>, 1, 'hash constructor';

my @a = (1..3).grep: * > 2;
ok @a.elems == 1, 'grepped';