From fd0a4d581d8df767af5c5cecce5fa6c567ca8b39 Mon Sep 17 00:00:00 2001
From: Stephen Weeks <tene@allalone.org>
Date: Wed, 22 Apr 2009 00:33:17 -0600
Subject: [PATCH] Use load_lang opcode for eval with :lang

---
 src/builtins/control.pir | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/src/builtins/control.pir b/src/builtins/control.pir
index be093c57133..1e7a90a1a87 100644
--- 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: