fixed #75114: Can't augment class Int

Signed-off-by: Moritz Lenz <moritz@faui2k3.org>
rakudo · Jun 3, 2010 · a0b6d74 · a0b6d74
1 parent 2242efb
commit a0b6d74
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -2297,7 +2297,7 @@ method number:sym<numish>($/) {
 }
 
 method numish($/) {
-    if $<integer> { make PAST::Val.new( :value($<integer>.ast) ); }
+    if $<integer> { make PAST::Val.new( :value($<integer>.ast), :returns('Int') ); }
     elsif $<dec_number> { make $<dec_number>.ast; }
     elsif $<rad_number> { make $<rad_number>.ast; }
     else {
@@ -2508,7 +2508,7 @@ method quote_EXPR($/) {
                 $past := PAST::Stmts.new($past);
             }
             else {
-                $past := PAST::Val.new(:value(~@words[0]), :returns<Str>);
+                $past := PAST::Val.new( :value(~@words[0]), :returns('Str') );
             }
         }
     }