VM: can't go through the accessor here because it triggers the assert

diff --git a/vm/vm.hpp b/vm/vm.hpp
index 496d20f3871a24f3a14b698f418dcf213a9dd857..d316fa7c26806f6d5624a3a4ed30aaa63087fa66 100644 (file)
--- a/vm/vm.hpp
+++ b/vm/vm.hpp
@@ -539,7 +539,7 @@ struct factor_vm {
   // tagged
   template <typename Type> void check_tagged(tagged<Type> t) {
     if (!t.type_p())
-      type_error(Type::type_number, t.value());
+      type_error(Type::type_number, t.value_);
   }
 
   template <typename Type> Type* untag_check(cell value) {