Un-bitrot nqp/rc-man-or-boy-test

raku-community-modules · Jun 17, 2014 · f079596 · f079596
1 parent 655c508
commit f079596
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/nqp/rc-man-or-boy-test b/nqp/rc-man-or-boy-test
@@ -2,8 +2,11 @@
 try { nqp::getcomp('nqp').eval('pir::getinterp__P().recursion_limit(100000)') }
 
 sub A ($k, $x1, $x2, $x3, $x4, $x5) {
-    my $B := sub () { A(--$k, $B, $x1, $x2, $x3, $x4) };
+    my $B; $B := sub () { A(--$k, $B, $x1, $x2, $x3, $x4) };
     $k <= 0 ?? $x4() + $x5() !! $B();
 }
 
-say(A(+@ARGS[1], sub(){1}, sub(){-1}, sub(){-1}, sub(){1}, sub(){0}));
+sub MAIN(*@ARGS) {
+    say(A(+@ARGS[1], my sub(){1}, my sub(){-1}, my sub(){-1},
+                     my sub(){1}, my sub(){0}));
+}