From: Taylor R Campbell <campbell@mumble.net>
Date: Mon, 9 Aug 2010 17:45:10 +0000 (+0000)
Subject: Missed some vestiges of archaic microcode state space support.
X-Git-Tag: 20101212-Gtk~110
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=80be5d7f5a55babaf7c75a537fb76809cd64257c;p=mit-scheme.git

Missed some vestiges of archaic microcode state space support.
---

diff --git a/src/microcode/extern.h b/src/microcode/extern.h
index 9876b6ddc..3f1b84a85 100644
--- 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 28c1d473a..873fe8f84 100644
--- 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