Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Make base and exp work in rad_number action.
  • Loading branch information
colomon committed Mar 20, 2010
1 parent 52ea36c commit acc0fce
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/Perl6/Actions.pm
Expand Up @@ -2132,8 +2132,8 @@ method rad_number($/) {
my $radix := +($<radix>.Str);
my $intpart := $<intpart>.Str;
my $fracpart := $<fracpart> ?? $<fracpart>.Str !! "0";
my $base := $<base> ?? $<base>.ast !! 0;
my $exp := $<exp> ?? $<exp>.ast !! 0;
my $base := $<base> ?? +($<base>[0].Str) !! 0;
my $exp := $<exp> ?? +($<exp>[0].Str) !! 0;

make PAST::Op.new( :name('&radcalc'), :pasttype('call'),
$radix, $intpart, $fracpart, $base, $exp
Expand Down

0 comments on commit acc0fce

Please sign in to comment.