document some assumptions; remove unused variable

no functional changes
rakudo · Nov 11, 2011 · 933a1a5 · 933a1a5
1 parent 7c6a4a6
commit 933a1a5
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -4249,6 +4249,9 @@ class Perl6::Actions is HLL::Actions {
         $n;
     }
 
+    # radix, $base, $exponent: parrot numbers (Integer or Float)
+    # $number: parrot string
+    # return value: PAST for Int, Rat or Num
     sub radcalc($radix, $number, $base?, $exponent?) {
         my int $sign := 1;
         pir::die("Radix '$radix' out of range (2..36)")
@@ -4286,7 +4289,6 @@ class Perl6::Actions is HLL::Actions {
         my $Int := $*ST.find_symbol(['Int']);
 
         my $iresult      := nqp::box_i(0, $Int);
-        my $fresult      := nqp::box_i(0, $Int);
         my $fdivide      := nqp::box_i(1, $Int);
         my $radixInt     := nqp::box_i($radix, $Int);
         my int $idx      := -1;