Unbreak eval of foreign HLLs.

rakudo · Aug 25, 2009 · 8968778 · 8968778
1 parent 9d9d416
commit 8968778
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/builtins/control.pir b/src/builtins/control.pir
@@ -373,6 +373,7 @@ on error.
     compiler = compreg 'perl6'
   got_lang:
     invokable = compiler.'compile'(code)
+    if have_lang goto invoke_direct
 
     # Clear lexical info we added.
     blocks.'shift'()
@@ -382,6 +383,7 @@ on error.
     $P1.'set_outer'(my_caller)
 
     # Invoke.
+  invoke_direct:
     res = invokable()
     exception = '!FAIL'()
     goto done