From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 28 Aug 2010 20:56:36 +0000 (+0000)
Subject: Fix SVM interpreter's INDEX-FIXNUM? predicate.
X-Git-Tag: 20101212-Gtk~79
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=632d7dd9120f78c3e46bc1774a8cddf75b7a86fc;p=mit-scheme.git

Fix SVM interpreter's INDEX-FIXNUM? predicate.
---

diff --git a/src/microcode/svm1-interp.c b/src/microcode/svm1-interp.c
index 6ce845408..89e2be000 100644
--- a/src/microcode/svm1-interp.c
+++ b/src/microcode/svm1-interp.c
@@ -771,7 +771,7 @@ DEFINE_CJF_1 (pl, pu, s32, S32)
 
 #define CMP_FIX(a) (LONG_TO_FIXNUM_P (a))
 #define CMP_NFIX(a) (!CMP_FIX (a))
-#define CMP_IFIX(a) (((a) & SIGN_MASK) == (TC_FIXNUM * 2))
+#define CMP_IFIX(a) (((a) & SIGN_MASK) == (MAKE_OBJECT (TC_FIXNUM, 0)))
 #define CMP_NIFIX(a) (!CMP_IFIX (a))
 
 DEFINE_CJF (fix, FIX)