diff --git a/lobject.c b/lobject.c
index d89e2211..af98ebf6 100644
--- a/lobject.c
+++ b/lobject.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lobject.c,v 1.29 1999/12/30 18:28:40 roberto Exp roberto $
+** $Id: lobject.c,v 1.30 2000/01/25 18:44:21 roberto Exp roberto $
 ** Some generic functions over Lua objects
 ** See Copyright Notice in lua.h
 */
@@ -56,21 +56,6 @@ int luaO_equalval (const TObject *t1, const TObject *t2) {
 }
 
 
-#ifdef OLD_ANSI
-void luaO_memup (void *dest, void *src, int size) {
-  while (size--)
-    ((char *)dest)[size]=((char *)src)[size];
-}
-
-void luaO_memdown (void *dest, void *src, int size) {
-  int i;
-  for (i=0; i<size; i++)
-    ((char *)dest)[i]=((char *)src)[i];
-}
-#endif
-
-
-
 static double expten (unsigned int e) {
   double exp = 10.0;
   double res = 1.0;
diff --git a/lobject.h b/lobject.h
index 0236aac8..87afb761 100644
--- a/lobject.h
+++ b/lobject.h
@@ -1,5 +1,5 @@
 /*
-** $Id: lobject.h,v 1.46 2000/02/11 16:52:54 roberto Exp roberto $
+** $Id: lobject.h,v 1.47 2000/02/14 16:51:08 roberto Exp roberto $
 ** Type definitions for Lua objects
 ** See Copyright Notice in lua.h
 */
@@ -237,13 +237,5 @@ int luaO_equalval (const TObject *t1, const TObject *t2);
 int luaO_redimension (lua_State *L, int oldsize);
 int luaO_str2d (const char *s, real *result);
 
-#ifdef OLD_ANSI
-void luaO_memup (void *dest, void *src, int size);
-void luaO_memdown (void *dest, void *src, int size);
-#else
-#include <string.h>
-#define luaO_memup(d,s,n)	memmove(d,s,n)
-#define luaO_memdown(d,s,n)	memmove(d,s,n)
-#endif
 
 #endif