Permalink
Browse files

Misc fixes for real warnings in build

  • Loading branch information...
1 parent 9a69bf4 commit d83bf5158bde61f7a89377a20c2ea1b9fa80910f @sorear committed Oct 30, 2011
Showing with 3 additions and 15 deletions.
  1. +0 −5 src/NieczaActions.pm6
  2. +1 −1 src/NieczaCompiler.pm6
  3. +0 −7 src/NieczaPassSimplifier.pm6
  4. +2 −2 test.pl
View
5 src/NieczaActions.pm6
@@ -1183,11 +1183,6 @@ method infixish($/) {
}
}
-my %loose2tight = (
- '&&' => '&&', '||' => '||', '//' => '//', 'andthen' => 'andthen',
- 'orelse' => '//', 'and' => '&&', 'or' => '||',
-);
-
method infix:sym<...> ($/) {
# STD parses ...^ in the ... rule
make Operator.funop($/, '&infix:<' ~ $/ ~ '>', 2);
View
2 src/NieczaCompiler.pm6
@@ -12,7 +12,7 @@ has $!discount-time = 0;
has %.units;
-method !compile($unitname, $filename, $modtime, $source, $main, $run, $end, $evalmode, $outer, $outer_frame, $repl) {
+method !compile($unitname, $filename, $modtime, $source, $main, $run, $end , $evalmode, $outer, $outer_frame, $repl) { #OK
# FIXME this is a bit of a fudge
$unitname := 'CORE' if $!frontend.lang eq 'NULL';
View
7 src/NieczaPassSimplifier.pm6
@@ -50,13 +50,6 @@ sub capture_params($op) {
$(@pos), @named;
}
-sub is_simple_var($op) {
- $op = $op.inner while $op.^isa(::Op::Paren);
- return Any unless $op.^isa(::Op::Lexical);
- return Any if $op.declaring || $op.state_backing;
- return $op.name;
-}
-
our %funcs = (
'&postcircumfix:<{ }>' => &do_atkey,
'&postcircumfix:<[ ]>' => &do_atpos,
View
4 test.pl
@@ -1035,7 +1035,7 @@
rxtest /^ x**2..4 $/, 'x**2..4', ('xx','xxx','xxxx'), ('x','xxxxx');
rxtest /^ x**2..* $/, 'x**2..*', ('xx','xxx','xxxx'), ('x',);
rxtest /^ [x**2] $/, 'x**2', ('xx',), ('x','xxx');
- rxtest /^ [x**y] $/, 'x**y', ('x','xyx','xyxyx'), ('','xy','yx');
+ rxtest /^ [x+%y] $/, 'x**y', ('x','xyx','xyxyx'), ('','xy','yx');
}
{
@@ -1167,7 +1167,7 @@
'd0|c1|b2|a3', '.sort with callback works';
is ("yayay" ~~ /y\w*?y/), "yay", "minimal matching works";
-is ("yayay" ~~ /y**?a/), "y", "minimal matching works with **";
+is ("yayay" ~~ /y+?%a/), "y", "minimal matching works with **";
is +[ 2 ], 1, "array construction w/ one argument";
is +[ ], 0, "array construction w/ no arguments";

0 comments on commit d83bf51

Please sign in to comment.