From 80be5d7f5a55babaf7c75a537fb76809cd64257c Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Mon, 9 Aug 2010 17:45:10 +0000 Subject: [PATCH] Missed some vestiges of archaic microcode state space support. --- src/microcode/extern.h | 1 - src/microcode/sdata.h | 9 --------- 2 files changed, 10 deletions(-) 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 -- 2.25.1