vm: replace assert with FACTOR_ASSERT

[factor.git] / vm / tagged.hpp

diff --git a/vm/tagged.hpp b/vm/tagged.hpp
index e9f89528bc3b0f68c6bd18240b9ae8e59590e32f..12f649669cebafe06f711b919a653d697a01373b 100755 (executable)
--- a/vm/tagged.hpp
+++ b/vm/tagged.hpp
@@ -37,7 +37,7 @@ struct tagged
        cell value() const
        {
 #ifdef FACTOR_DEBUG
-               assert(type_p());
+               FACTOR_ASSERT(type_p());
 #endif
                return value_;
        }
@@ -45,7 +45,7 @@ struct tagged
        Type *untagged() const
        {
 #ifdef FACTOR_DEBUG
-               assert(type_p());
+               FACTOR_ASSERT(type_p());
 #endif
                return (Type *)(UNTAG(value_));
        }