From d56318bb14cf087136dc82bfcc5eb178ab172171 Mon Sep 17 00:00:00 2001
From: Martin Kjeldsen <martin@martinkjeldsen.dk>
Date: Sun, 7 Mar 2010 13:21:28 +0100
Subject: [PATCH] Use numbers in number context so they can be multiplied

---
 src/Perl6/Actions.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
index 6775176..fd676ed 100644
--- a/src/Perl6/Actions.pm
+++ b/src/Perl6/Actions.pm
@@ -1795,7 +1795,7 @@ method dec_number($/) {
         my $exp := $<escale>[0]<decint>.ast;
         if $<escale>[0]<sign> eq '-' { $exp := -$exp; }
         make PAST::Val.new( 
-            :value(($int * $base + $frac) / $base * 10 ** +$exp ) ,
+            :value((+$int * +$base + $frac) / $base * 10 ** +$exp ) ,
             :returns('Num')
         );
     }
-- 
1.7.0