Bump up Parrot's recursion limit when we start (from default 1000 to …

…100000).
rakudo · Jun 18, 2012 · ddfb9ff · ddfb9ff
1 parent c203977
commit ddfb9ff
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/main.nqp b/src/main.nqp
@@ -6,6 +6,9 @@ sub MAIN(@ARGS) {
     # Initialize dynops.
     pir::rakudo_dynop_setup__v();
 
+    # Bump up Parrot's recursion limit
+    pir::getinterp__P().recursion_limit(100000);
+
     # Create and configure compiler object.
     my $comp := Perl6::Compiler.new();
     $comp.language('perl6');