From c08d325132fb9469276a0e5ca7f824d70fc39bb0 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 5 Nov 2009 21:52:31 -0600
Subject: [PATCH] Remove unused error from VM

---
 basis/debugger/debugger-docs.factor |  3 ---
 basis/debugger/debugger.factor      | 18 +++++++-----------
 vm/errors.hpp                       |  1 -
 3 files changed, 7 insertions(+), 15 deletions(-)

diff --git a/basis/debugger/debugger-docs.factor b/basis/debugger/debugger-docs.factor
index 87e70d69e7..4bcd9c5b78 100644
--- a/basis/debugger/debugger-docs.factor
+++ b/basis/debugger/debugger-docs.factor
@@ -129,9 +129,6 @@ HELP: c-string-error.
 HELP: ffi-error.
 { $error-description "Thrown by " { $link dlopen } " and " { $link dlsym } " if a problem occurs while loading a native library or looking up a symbol. See " { $link "alien" } "." } ;
 
-HELP: heap-scan-error.
-{ $error-description "Thrown if " { $link next-object } " is called outside of a " { $link begin-scan } "/" { $link end-scan } " pair." } ;
-
 HELP: undefined-symbol-error.
 { $error-description "Thrown if a previously-compiled " { $link alien-invoke } " call refers to a native library symbol which no longer exists." } ;
 
diff --git a/basis/debugger/debugger.factor b/basis/debugger/debugger.factor
index 690e631e81..f1e23b18f5 100644
--- a/basis/debugger/debugger.factor
+++ b/basis/debugger/debugger.factor
@@ -103,9 +103,6 @@ HOOK: signal-error. os ( obj -- )
 : ffi-error. ( obj -- )
     "FFI error" print drop ;
 
-: heap-scan-error. ( obj -- )
-    "Cannot do next-object outside begin/end-scan" print drop ;
-
 : undefined-symbol-error. ( obj -- )
     "The image refers to a library or symbol that was not found at load time"
     print drop ;
@@ -148,14 +145,13 @@ PREDICATE: vm-error < array
         { 6  [ array-size-error.       ] }
         { 7  [ c-string-error.         ] }
         { 8  [ ffi-error.              ] }
-        { 9  [ heap-scan-error.        ] }
-        { 10 [ undefined-symbol-error. ] }
-        { 11 [ datastack-underflow.    ] }
-        { 12 [ datastack-overflow.     ] }
-        { 13 [ retainstack-underflow.  ] }
-        { 14 [ retainstack-overflow.   ] }
-        { 15 [ memory-error.           ] }
-        { 16 [ fp-trap-error.          ] }
+        { 9  [ undefined-symbol-error. ] }
+        { 10 [ datastack-underflow.    ] }
+        { 11 [ datastack-overflow.     ] }
+        { 12 [ retainstack-underflow.  ] }
+        { 13 [ retainstack-overflow.   ] }
+        { 14 [ memory-error.           ] }
+        { 15 [ fp-trap-error.          ] }
     } ; inline
 
 M: vm-error summary drop "VM error" ;
diff --git a/vm/errors.hpp b/vm/errors.hpp
index c1ea2e1907..4b237e03a0 100755
--- a/vm/errors.hpp
+++ b/vm/errors.hpp
@@ -13,7 +13,6 @@ enum vm_error_type
 	ERROR_ARRAY_SIZE,
 	ERROR_C_STRING,
 	ERROR_FFI,
-	ERROR_HEAP_SCAN,
 	ERROR_UNDEFINED_SYMBOL,
 	ERROR_DS_UNDERFLOW,
 	ERROR_DS_OVERFLOW,