[svn:parrot] r35406 - trunk/languages/lua/src/lib

Author: fperrad
Date: Sun Jan 11 04:17:36 2009
New Revision: 35406

Modified:
   trunk/languages/lua/src/lib/luaaux.pir

Log:
[Lua]
- fix traceback (vs regex.t)

Modified: trunk/languages/lua/src/lib/luaaux.pir
==============================================================================
--- trunk/languages/lua/src/lib/luaaux.pir	(original)
+++ trunk/languages/lua/src/lib/luaaux.pir	Sun Jan 11 04:17:36 2009
@@ -1037,7 +1037,13 @@
     $P0 = shift iter
     sub = $P0['sub']
     if null sub goto L2
+    $I0 = isa sub, 'LuaFunction'
+    unless $I0 goto L5
     $S0 = sub.'get_name'()
+    goto L6
+  L5:
+    $S0 = sub
+  L6:
     outer = sub.'get_outer'()
     ret .= "\n\t"
     unless null outer goto L3

• [svn:parrot] r35406 - trunk/languages/lua/src/lib by fperrad