--- ./libguile/iselect.c	Mon Apr 23 18:42:51 2001
+++ ../guile-1.5.6/./libguile/iselect.c	Sat Jun 22 18:02:11 2002
@@ -67,15 +67,15 @@
 #define SCM_BITS_PER_LONG (8 * sizeof (unsigned long))
 /* Use LONG_MAX instead of ULONG_MAX here since not all systems define
    ULONG_MAX */
-#if LONG_MAX >> 16 == 0
+#if _MIPS_SZLONG == 16
 #define SCM_NLONGBITS(p) (bc[((unsigned char *)(p))[0]]\
 			  + bc[((unsigned char *)(p))[1]])
-#elif LONG_MAX >> 32 == 0 || LONG_MAX == 2147483647L /* bug in Sun CC 4.2 */
+#elif _MIPS_SZLONG == 32
 #define SCM_NLONGBITS(p) (bc[((unsigned char *)(p))[0]]\
 			  + bc[((unsigned char *)(p))[1]]\
 			  + bc[((unsigned char *)(p))[2]]\
 			  + bc[((unsigned char *)(p))[3]])
-#elif LONG_MAX >> 64 == 0
+#elif _MIPS_SZLONG == 64
 #define SCM_NLONGBITS(p) (bc[((unsigned char *)(p))[0]]\
 			  + bc[((unsigned char *)(p))[1]]\
 			  + bc[((unsigned char *)(p))[2]]\