From d6a06cf5dcf57f7d236453210768902bd3b48bf5 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Wed, 19 Oct 2011 19:28:02 -0700
Subject: [PATCH] vm: remove unguard-safepoint primitive

---
 vm/errors.cpp     | 5 -----
 vm/primitives.hpp | 1 -
 vm/vm.hpp         | 1 -
 3 files changed, 7 deletions(-)

diff --git a/vm/errors.cpp b/vm/errors.cpp
index 6d5b91dcf0..7869b79b58 100755
--- a/vm/errors.cpp
+++ b/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();
-}
-
 }
diff --git a/vm/primitives.hpp b/vm/primitives.hpp
index ea02c07f6c..e9965c2f3b 100644
--- a/vm/primitives.hpp
+++ b/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) \
diff --git a/vm/vm.hpp b/vm/vm.hpp
index c1b535729f..ae0d73541d 100755
--- a/vm/vm.hpp
+++ b/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);