X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fwrapped.h;h=daaaa25404d07c95e32fd71f7e6d7a927e100353;hb=ba89d42068aa7ee7535946ff61d9bbebdb153f28;hp=4514fa64afbb769c2686bc5f46697b584007b4ac;hpb=c9c098c6a9363eb59f435eb195a4bc5b9098b1dd;p=guile-irrlicht.git

diff --git a/src/wrapped.h b/src/wrapped.h
index 4514fa6..daaaa25 100644
--- a/src/wrapped.h
+++ b/src/wrapped.h
@@ -74,13 +74,4 @@
     return SCM_IS_A_P (wrapped_obj, wrapped_##INIT);                    \
   }
 
-
-#define UNWRAP(OBJ)                                                     \
-  char* OBJ##_class = scm_to_utf8_stringn (scm_car (OBJ), NULL);        \
-  void* OBJ##_pointer = scm_to_pointer (scm_cdr (OBJ));
-
-
-#define UNWRAPPED(OBJ)                                                  \
-  (!strcmp (OBJ##_class, "irr::IEventReceiver") ? (irr::IEventReceiver*)OBJ##_pointer : 0)
-
 #endif