use add_numeric_constant for numeric constant

rakudo · Nov 11, 2011 · 7c6a4a6 · 7c6a4a6
1 parent 3d97eda
commit 7c6a4a6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -3419,7 +3419,7 @@ class Perl6::Actions is HLL::Actions {
         my $radix    := +($<radix>.Str);
         if $<circumfix> {
             make PAST::Op.new(:name('&unbase'), :pasttype('call'),
-                $*ST.add_constant('Int', 'int', $radix), $<circumfix>.ast);
+                $*ST.add_numeric_constant('Int', $radix), $<circumfix>.ast);
         } else {
             my $intpart  := $<intpart>.Str;
             my $fracpart := $<fracpart> ?? $<fracpart>.Str !! "0";