Add S48_EQ_P which is the same as the previous S48_EQ.

Merged from Scheme 48 0.56.
This commit is contained in:
sperber 2001-06-01 15:51:50 +00:00
parent fd264012b9
commit b42bc454e3
1 changed files with 3 additions and 1 deletions

View File

@ -14,7 +14,9 @@ extern int s48_add_external_init(void (*init)());
/* Misc stuff */ /* Misc stuff */
#define S48_EQ(v1, v2) ((v1) == (v2)) #define S48_EQ_P(v1, v2) ((v1) == (v2))
/* Superceded name for the above definition, retained for compatibility. */
#define S48_EQ(v1, v2) ((v1) == (v2))
#define S48_MAX_FIXNUM_VALUE ((1 << 29) - 1) #define S48_MAX_FIXNUM_VALUE ((1 << 29) - 1)
#define S48_MIN_FIXNUM_VALUE (-1 << 29) #define S48_MIN_FIXNUM_VALUE (-1 << 29)