Missed some vestiges of archaic microcode state space support.

diff --git a/src/microcode/extern.h b/src/microcode/extern.h
index 9876b6ddc3ea4d9651b44aa47ea27374468160e7..3f1b84a851cbb5cf76772247d5e371cf6080c754 100644 (file)
--- a/src/microcode/extern.h
+++ b/src/microcode/extern.h
@@ -336,7 +336,6 @@ extern void back_out_of_primitive (void);
 
 extern void Interpret (int pop_return_p);
 extern void Do_Micro_Error (long, bool);
-extern void Translate_To_Point (SCHEME_OBJECT);
 extern void Stack_Death (void) NORETURN;
 extern SCHEME_OBJECT * control_point_start (SCHEME_OBJECT);
 extern SCHEME_OBJECT * control_point_end (SCHEME_OBJECT);

diff --git a/src/microcode/sdata.h b/src/microcode/sdata.h
index 28c1d473af9ae4d915892a84f1bd84398e446feb..873fe8f8471c80c879f7ba67f0b931909ffff57d 100644 (file)
--- a/src/microcode/sdata.h
+++ b/src/microcode/sdata.h
@@ -459,15 +459,6 @@ USA.
  * continues after the evaluation.
  */
 
-/* When in RC_MOVE_TO_ADJACENT_POINT in the interpreter, the following
-   information is available on the stack (placed there by
-   Translate_To_Point
-*/
-#define TRANSLATE_FROM_POINT           0
-#define TRANSLATE_FROM_DISTANCE                1
-#define TRANSLATE_TO_POINT             2
-#define TRANSLATE_TO_DISTANCE          3
-
 /* TRUE
  * The initial binding of the variable T is to an object of this type.
  * This type is the beginnings of a possible move toward a system where