Add context-specific special object table, generalizing catchstack_save and current_c...

[factor.git] / vm / primitives.cpp

diff --git a/vm/primitives.cpp b/vm/primitives.cpp
index be9d5c6ff6e2d809731b2fb2ec4943093b22e475..aa1e10f5a5f647df2401468da48627e57778d346 100644 (file)
--- a/vm/primitives.cpp
+++ b/vm/primitives.cpp
@@ -47,6 +47,7 @@ PRIMITIVE(code_blocks)
 PRIMITIVE(code_room)
 PRIMITIVE(compact_gc)
 PRIMITIVE(compute_identity_hashcode)
+PRIMITIVE(context_object)
 PRIMITIVE(data_room)
 PRIMITIVE(datastack)
 PRIMITIVE(die)
@@ -111,6 +112,7 @@ PRIMITIVE(resize_string)
 PRIMITIVE(retainstack)
 PRIMITIVE(save_image)
 PRIMITIVE(save_image_and_exit)
+PRIMITIVE(set_context_object)
 PRIMITIVE(set_datastack)
 PRIMITIVE(set_innermost_stack_frame_quot)
 PRIMITIVE(set_retainstack)