Author: jonathan
Date: Tue Mar 25 11:09:29 2008
New Revision: 26540
Modified:
trunk/languages/perl6/src/parser/actions.pm
Log:
[rakudo] Fix :a and :!a to meet S02.
Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Tue Mar 25 11:09:29 2008
@@ -1246,11 +1246,7 @@
if $key eq 'false' {
$pair_key := PAST::Val.new( :value(~$<ident>) );
- $pair_val := PAST::Var.new(
- :name('False'),
- :namespace('Bool'),
- :scope('package')
- );
+ $pair_val := PAST::Val.new( :value(0), :returns('Integer') );
}
elsif $key eq 'value' {
$pair_key := PAST::Val.new( :value(~$<ident>) );
@@ -1259,11 +1255,7 @@
$/.panic('postcircumfix on colonpair not yet implemented');
}
else {
- $pair_val := PAST::Var.new(
- :name('True'),
- :namespace('Bool'),
- :scope('package')
- );
+ $pair_val := PAST::Val.new( :value(1), :returns('Integer') );
}
}
else {
