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

[factor.git] / core / continuations / continuations.factor

diff --git a/core/continuations/continuations.factor b/core/continuations/continuations.factor
index c7507a147a9c7ff3ebd2709a42ed4a8a31e82ff0..220cef3e8ddb303109b3b6bbed77964847c929ab 100644 (file)
--- a/core/continuations/continuations.factor
+++ b/core/continuations/continuations.factor
@@ -204,9 +204,6 @@ M: condition compute-restarts
         OBJ-CURRENT-THREAD special-object error-thread set-global
         current-continuation error-continuation set-global
         [ original-error set-global ] [ rethrow ] bi
-    ] ERROR-HANDLER-QUOT set-special-object
-    ! VM adds this to kernel errors, so that user-space
-    ! can identify them
-    "kernel-error" OBJ-ERROR set-special-object ;
+    ] ERROR-HANDLER-QUOT set-special-object ;
 
 PRIVATE>