From a27fa2909875b302191d8c48a073b1ead0875ccc Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 2 Apr 2008 21:37:26 -0500
Subject: [PATCH] Remove type, class-hash primitives

---
 core/bootstrap/primitives.factor              |  2 --
 core/inference/known-words/known-words.factor |  3 ---
 vm/primitives.c                               |  2 --
 vm/run.c                                      | 21 -------------------
 vm/run.h                                      |  2 --
 5 files changed, 30 deletions(-)

diff --git a/core/bootstrap/primitives.factor b/core/bootstrap/primitives.factor
index f3846de5b1..6c87730278 100755
--- a/core/bootstrap/primitives.factor
+++ b/core/bootstrap/primitives.factor
@@ -656,7 +656,6 @@ define-builtin
     { "code-room" "memory" }
     { "os-env" "system" }
     { "millis" "system" }
-    { "type" "kernel.private" }
     { "tag" "kernel.private" }
     { "modify-code-heap" "compiler.units" }
     { "dlopen" "alien" }
@@ -728,7 +727,6 @@ define-builtin
     { "(sleep)" "threads.private" }
     { "<float-array>" "float-arrays" }
     { "<tuple-boa>" "classes.tuple.private" }
-    { "class-hash" "kernel.private" }
     { "callstack>array" "kernel" }
     { "innermost-frame-quot" "kernel.private" }
     { "innermost-frame-scan" "kernel.private" }
diff --git a/core/inference/known-words/known-words.factor b/core/inference/known-words/known-words.factor
index 3cc78831a3..5092b86a4d 100755
--- a/core/inference/known-words/known-words.factor
+++ b/core/inference/known-words/known-words.factor
@@ -386,9 +386,6 @@ set-primitive-effect
 \ tag { object } { fixnum } <effect> set-primitive-effect
 \ tag make-foldable
 
-\ class-hash { object } { fixnum } <effect> set-primitive-effect
-\ class-hash make-foldable
-
 \ cwd { } { string } <effect> set-primitive-effect
 
 \ cd { string } { } <effect> set-primitive-effect
diff --git a/vm/primitives.c b/vm/primitives.c
index 203ebb7f6b..6a6aeb9d46 100755
--- a/vm/primitives.c
+++ b/vm/primitives.c
@@ -106,7 +106,6 @@ void *primitives[] = {
 	primitive_code_room,
 	primitive_os_env,
 	primitive_millis,
-	primitive_type,
 	primitive_tag,
 	primitive_modify_code_heap,
 	primitive_dlopen,
@@ -178,7 +177,6 @@ void *primitives[] = {
 	primitive_sleep,
 	primitive_float_array,
 	primitive_tuple_boa,
-	primitive_class_hash,
 	primitive_callstack_to_array,
 	primitive_innermost_stack_frame_quot,
 	primitive_innermost_stack_frame_scan,
diff --git a/vm/run.c b/vm/run.c
index cec19b5445..282be0a447 100755
--- a/vm/run.c
+++ b/vm/run.c
@@ -307,32 +307,11 @@ DEFINE_PRIMITIVE(sleep)
 	sleep_millis(to_cell(dpop()));
 }
 
-DEFINE_PRIMITIVE(type)
-{
-	drepl(tag_fixnum(type_of(dpeek())));
-}
-
 DEFINE_PRIMITIVE(tag)
 {
 	drepl(tag_fixnum(TAG(dpeek())));
 }
 
-DEFINE_PRIMITIVE(class_hash)
-{
-	CELL obj = dpeek();
-	CELL tag = TAG(obj);
-	if(tag == TUPLE_TYPE)
-	{
-		F_TUPLE *tuple = untag_object(obj);
-		F_TUPLE_LAYOUT *layout = untag_object(tuple->layout);
-		drepl(layout->hashcode);
-	}
-	else if(tag == OBJECT_TYPE)
-		drepl(get(UNTAG(obj)));
-	else
-		drepl(tag_fixnum(tag));
-}
-
 DEFINE_PRIMITIVE(slot)
 {
 	F_FIXNUM slot = untag_fixnum_fast(dpop());
diff --git a/vm/run.h b/vm/run.h
index 216a00b27d..c112c5f587 100755
--- a/vm/run.h
+++ b/vm/run.h
@@ -253,9 +253,7 @@ DECLARE_PRIMITIVE(set_os_envs);
 DECLARE_PRIMITIVE(eq);
 DECLARE_PRIMITIVE(millis);
 DECLARE_PRIMITIVE(sleep);
-DECLARE_PRIMITIVE(type);
 DECLARE_PRIMITIVE(tag);
-DECLARE_PRIMITIVE(class_hash);
 DECLARE_PRIMITIVE(slot);
 DECLARE_PRIMITIVE(set_slot);