Some fixes (beware with pointers casting)

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

diff --git a/src/wrapped.h b/src/wrapped.h
index 5ffafb6745c10f3ece617a9d4dd7fe3c527774c4..daaaa25404d07c95e32fd71f7e6d7a927e100353 100644 (file)
--- a/src/wrapped.h
+++ b/src/wrapped.h
@@ -32,7 +32,7 @@
   WRAP (TYPE foreign_obj);                                              \
                                                                         \
   TYPE                                                                  \
-  UNWRAP (SCM wrapped_obj, bool assert_type = true);                    \
+  UNWRAP (SCM wrapped_obj);                                             \
                                                                         \
   bool                                                                  \
   PRED (SCM wrapped_obj);
@@ -62,12 +62,9 @@
   }                                                                     \
                                                                         \
   TYPE                                                                  \
-  UNWRAP (SCM wrapped_obj, bool assert_type)                            \
+  UNWRAP (SCM wrapped_obj)                                              \
   {                                                                     \
-    if (assert_type)                                                    \
-      {                                                                 \
-        scm_assert_foreign_object_type (wrapped_##INIT, wrapped_obj);   \
-      }                                                                 \
+    scm_assert_foreign_object_type (wrapped_##INIT, wrapped_obj);       \
     return (TYPE)scm_foreign_object_ref (wrapped_obj, 0);               \
   }                                                                     \
                                                                         \