From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Wed, 20 Jan 2016 16:34:23 +0000 (-0700)
Subject: src/microcode/stack.h (STACK_LOCATIVE_LESS_P): Rename _ABOVE_P.
X-Git-Tag: mit-scheme-pucked-9.2.12~371^2~14
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2d9c04fc3fa3d639b1959f85e7b9b26e4cf8941d;p=mit-scheme.git

src/microcode/stack.h (STACK_LOCATIVE_LESS_P): Rename _ABOVE_P.

The stack direction neutral name STACK_LOCATIVE_ABOVE_P(a,b) makes
more sense next to STACK_BOTTOM and STACK_TOP.
---

diff --git a/src/microcode/interp.h b/src/microcode/interp.h
index 242fa13a1..68ebec5c2 100644
--- a/src/microcode/interp.h
+++ b/src/microcode/interp.h
@@ -85,7 +85,7 @@ USA.
   Will_Push_Limit = (STACK_LOC (- (N)))
 
 #define Pushed()							\
-  if (STACK_LOCATIVE_LESS_P (stack_pointer, Will_Push_Limit))		\
+  if (STACK_LOCATIVE_ABOVE_P (stack_pointer, Will_Push_Limit))		\
     {									\
       Stack_Death ();							\
     }									\
diff --git a/src/microcode/stack.h b/src/microcode/stack.h
index 9b1db848d..ef894bcab 100644
--- a/src/microcode/stack.h
+++ b/src/microcode/stack.h
@@ -73,7 +73,7 @@ USA.
 #define STACK_LOCATIVE_OFFSET(locative, offset) ((locative) + (offset))
 #define STACK_LOCATIVE_REFERENCE(locative, offset) ((locative) [(offset)])
 #define STACK_LOCATIVE_DIFFERENCE(newer, older) ((older) - (newer))
-#define STACK_LOCATIVE_LESS_P(loc1, loc2) ((loc1) < (loc2))
+#define STACK_LOCATIVE_ABOVE_P(loc1, loc2) ((loc1) < (loc2))
 
 #define ADDRESS_IN_STACK_REGION_P(address, lower_limit, upper_limit)	\
   (((address) >= (lower_limit)) && ((address) < (upper_limit)))