-- This file:
--   http://angg.twu.net/LUA/Xpcall1.lua.html
--   http://angg.twu.net/LUA/Xpcall1.lua
--           (find-angg "LUA/Xpcall1.lua")
-- Author: Eduardo Ochs <eduardoochs@gmail.com>
--
-- Obsolete. See:
--   (find-angg "LUA/PCall1.lua")
--   (find-angg "LUA/XPCall1.lua")
--
-- «.tests»	(to "tests")


F20 = function (a) return 1 + F19(a) end
F19 = function (a) return 1 + F18(a) end
F18 = function (a) return 1 + F17(a) end
F17 = function (a) return 1 + F16(a) end
F16 = function (a) return 1 + F15(a) end
F15 = function (a) return 1 + F14(a) end
F14 = function (a) return 1 + F13(a) end
F13 = function (a) return 1 + F12(a) end
F12 = function (a) return 1 + F11(a) end
F11 = function (a) return 1 + F10(a) end
F10 = function (a) return 1 + F09(a) end
F09 = function (a) return 1 + F08(a) end
F08 = function (a) return 1 + F07(a) end
F07 = function (a) return 1 + F06(a) end
F06 = function (a) return 1 + F05(a) end
F05 = function (a) return 1 + F04(a) end
F04 = function (a) return 1 + F03(a) end
F03 = function (a) return 1 + F02(a) end
F02 = function (a) return 1 + F01(a) end
F01 = function (a) return 1 + F00(a) end
F00 = function (a) return expr(a) end


-- «tests»  (to ".tests")
--[[
* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
dofile "Xpcall1.lua"
for i=20,1,-1 do
  printf("F%02d = function (a) return 1 + F%02d(a) end\n", i, i-1)
end
F20("error 'foo'")

xpcall(function () F20("error 'foo'") end,
       function (...) PP(...) end) 

xpcall(function () F20("error 'foo'") end,
       function (err) print(err); print(debug.traceback()) end) 

* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
dofile "Xpcall1.lua"
xpcall(function () F20("error 'foo'") end,
       function (err)
         print(err)
         print(debug.traceback())
         dgis = DGetInfos.newv()
       end)

= dgis
= dgis:tb ()
= dgis:tbn()
= dgis:tbn(30,11)
= dgis:tbn(#dgis-4,11)
= dgis:tb (#dgis-4,11)
= dgis:tostring(#dgis-4,11)

--]]


-- (find-es "lua5" "debug.lua-traceback")



-- Local Variables:
-- coding:  utf-8-unix
-- End: