X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fwrapped.h;fp=src%2Fwrapped.h;h=daaaa25404d07c95e32fd71f7e6d7a927e100353;hb=0cb94da9c4b0cc97e1a6e3452922b78f9f84124e;hp=5ffafb6745c10f3ece617a9d4dd7fe3c527774c4;hpb=480766c8e4e7272c21f69adf24b706aee20a5dba;p=guile-irrlicht.git

diff --git a/src/wrapped.h b/src/wrapped.h
index 5ffafb6..daaaa25 100644
--- 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);               \
   }                                                                     \
                                                                         \