Use load_lang opcode for eval with :lang

rakudo · Apr 22, 2009 · fd0a4d5 · fd0a4d5
1 parent 2665575
commit fd0a4d5
Showing 1 changed file with 2 additions and 7 deletions.
diff --git a/src/builtins/control.pir b/src/builtins/control.pir
@@ -356,13 +356,8 @@ on error.
     unless have_lang goto no_lang
     push_eh catch
     $S0 = lang
-    $S0 = concat 'languages/', $S0
-    $S0 = concat $S0, '/'
-    $S1 = lang
-    $S0 = concat $S0, $S1
-    $S0 = concat $S0, '.pbc'
-    load_bytecode $S0
-    $S0 = lang
+    $S1 = downcase $S0
+    load_language $S1
     compiler = compreg $S0
     goto got_lang
   no_lang: