VM: removes the OBJ-ERROR special object in favor of a constant

[factor.git] / core / kernel / kernel.factor

diff --git a/core/kernel/kernel.factor b/core/kernel/kernel.factor
index 7821a6abeab0d02f151f5055684d8ed2515d5eec..4b53ca0ac71183399a38def500cd906c9e4731fb 100644 (file)
--- a/core/kernel/kernel.factor
+++ b/core/kernel/kernel.factor
@@ -316,7 +316,6 @@ CONSTANT: OBJ-WALKER-HOOK 3
 CONSTANT: OBJ-CALLCC-1 4
 
 CONSTANT: ERROR-HANDLER-QUOT 5
-CONSTANT: OBJ-ERROR 6
 
 CONSTANT: OBJ-CELL-SIZE 7
 CONSTANT: OBJ-CPU 8
@@ -428,6 +427,9 @@ CONSTANT: CONTEXT-OBJ-IN-CALLBACK-P 3
 !   basis/debugger/debugger.factor
 !   vm/errors.hpp
 
+! VM adds this to kernel errors, so that user-space can identify them.
+CONSTANT: KERNEL-ERROR 0xfac7
+
 CONSTANT: kernel-error-count 20
 
 CONSTANT: ERROR-EXPIRED 0