New identity-hashcode primitive

[factor.git] / vm / tagged.hpp

diff --git a/vm/tagged.hpp b/vm/tagged.hpp
index e520e326fa95325787f947d0366844552a77ba8f..e9f89528bc3b0f68c6bd18240b9ae8e59590e32f 100755 (executable)
--- a/vm/tagged.hpp
+++ b/vm/tagged.hpp
@@ -8,7 +8,7 @@ template<typename Type> cell tag(Type *value)
 
 inline static cell tag_dynamic(object *value)
 {
-       return RETAG(value,value->h.hi_tag());
+       return RETAG(value,value->type());
 }
 
 template<typename Type>