Skang moduleBegin() stuffs the module in the C registry, so no one has to do this now.

NOTE - It uses a Lua debug function for this.

3 files changed, 1 insertions, 4 deletions

diff --git a/lib/skang.lua b/lib/skang.lua
index 0f91e44..394c3f8 100644
--- a/lib/skang.lua
+++ b/lib/skang.lua
@@ -95,6 +95,7 @@ moduleBegin = function (name, author, copyright, version, timestamp, skin, isLua
                         -- Returning it at the end does the same thing.
                         -- This is so that we can have all the module stuff at the top, in this function.
                         -- Should do this before any further require(), so that circular references don't blow out.
+  debug.getregistry()[name] = _M        -- Stuff the result in the C registry.
 
   -- Save the callers environment.
   local savedEnvironment
diff --git a/src/GuiLua/test_c.c b/src/GuiLua/test_c.c
index f548e4d..e85814b 100644
--- a/src/GuiLua/test_c.c
+++ b/src/GuiLua/test_c.c
@@ -65,8 +65,6 @@ int luaopen_test_c(lua_State *L)
 
 // local _M = skang.moduleBegin('test_c', nil, 'Copyright 2014 David Seikel', '0.1', '2014-03-27 03:57:00', nil, false)
   push_lua(L, "@ ( $ ~ $ $ $ ~ ! )", skang, MODULEBEGIN, ourName, "Copyright 2014 David Seikel", "0.1", "2014-03-27 03:57:00", 0, 1);
-  lua_setfield(L, LUA_REGISTRYINDEX, ourName);
-  lua_getfield(L, LUA_REGISTRYINDEX, ourName);
   _M = lua_gettop(L);
 
 // This uses function{} style.
diff --git a/src/purkle/purkle.c b/src/purkle/purkle.c
index f86f3f3..6c211c0 100644
--- a/src/purkle/purkle.c
+++ b/src/purkle/purkle.c
@@ -65,8 +65,6 @@ int luaopen_purkle(lua_State *L)
 
 // local _M = skang.moduleBegin('test_c', nil, 'Copyright 2014 David Seikel', '0.1', '2014-03-27 03:57:00', nil, false)
   push_lua(L, "@ ( $ ~ $ $ $ ~ ! )", skang, MODULEBEGIN, ourName, "Copyright 2014 David Seikel", "0.1", "2014-05-08 07:18:00", 0, 1);
-  lua_setfield(L, LUA_REGISTRYINDEX, ourName);
-  lua_getfield(L, LUA_REGISTRYINDEX, ourName);
   _M = lua_gettop(L);
 
   push_lua(L, "@ ( = $ $ & $ )", skang, THINGASM, _M, "append", "Append text to the history box.", append, "string", 0);