Use pointers directly from guile to C and viceversa

[guile-irrlicht.git] / src / wrapped.h

diff --git a/src/wrapped.h b/src/wrapped.h
index 4514fa64afbb769c2686bc5f46697b584007b4ac..daaaa25404d07c95e32fd71f7e6d7a927e100353 100644 (file)
--- 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