vm: remove unguard-safepoint primitive

vm/errors.cpp

@@ -176,9 +176,4 @@ void factor_vm::handle_safepoint()
 	general_error(ERROR_SIGNAL,from_unsigned_cell(signal),false_object);
 }
 
-void factor_vm::primitive_guard_safepoint()
-{
-	code->guard_safepoint();
-}
-
 }

vm/primitives.hpp

@@ -89,7 +89,6 @@ namespace factor
 	_(ftell) \
 	_(full_gc) \
 	_(fwrite) \
-	_(guard_safepoint) \
 	_(identity_hashcode) \
 	_(innermost_stack_frame_executing) \
 	_(innermost_stack_frame_scan) \

vm/vm.hpp

@@ -184,7 +184,6 @@ struct factor_vm
 	void fp_signal_handler_impl();
 	void enqueue_safepoint_signal(cell signal);
 	void handle_safepoint();
-	void primitive_guard_safepoint();
 
 	// bignum
 	int bignum_equal_p(bignum * x, bignum * y);