From f556377b136dc0ea344f87ef8f2f0eb55f3cf846 Mon Sep 17 00:00:00 2001
From: ame <amelia@amyy.cc>
Date: Thu, 22 Feb 2024 16:21:17 -0600
Subject: clean but small problem:c

---
 src/lua.c | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

(limited to 'src/lua.c')

diff --git a/src/lua.c b/src/lua.c
index 00d6205..549a250 100644
--- a/src/lua.c
+++ b/src/lua.c
@@ -43,11 +43,14 @@ void i_dcopy(lua_State* src, lua_State* dest, void* _seen){
     //int *sp;
     char* s;
     void* whar;
+    double n;
     int old_top = lua_gettop(src);
     //printf("%i\n",ii++);
     switch(lua_type(src, -1)){
         case LUA_TNUMBER:
-            lua_pushnumber(dest, luaL_checknumber(src, -1));
+            n = luaL_checknumber(src, -1);
+            if(n == (int)n) lua_pushinteger(dest, (int)n);
+            else lua_pushnumber(dest, n);
             break;
         case LUA_TSTRING:
             s = (char*)luaL_checklstring(src, -1, &len);
@@ -106,15 +109,8 @@ void i_dcopy(lua_State* src, lua_State* dest, void* _seen){
             
             str* awa = str_init("");
             lua_dump(src, writer, (void*)awa, 0);
-            //l_pprint(src);
-            //lua_pcall(src, 1, 1, 0);
-            //l_pprint(src);
-            //lua_settop(src, oo);
-            //lua_pop(src, 6);
-
-            //s = (char*)luaL_checklstring(src, -1, &len);
             lua_pushlstring(dest, awa->c, awa->len);
-            //for(int i = 0; i != awa->len; i++) printf("%i : %c\n",i, awa->c[i]);
+
             luaL_loadbuffer(dest, awa->c, awa->len, awa->c);
             lua_remove(dest, -2);
             str_free(awa);
-- 
cgit v1.2.3