HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* acconfig.h: add HAVE_ARRAYS.
[bpt/guile.git]
/
libguile
/
eq.c
diff --git
a/libguile/eq.c
b/libguile/eq.c
index
7e5ee18
..
db08c40
100644
(file)
--- a/
libguile/eq.c
+++ b/
libguile/eq.c
@@
-124,6
+124,7
@@
scm_equal_p (x, y)
else
return SCM_BOOL_F;
}
else
return SCM_BOOL_F;
}
+#ifdef HAVE_ARRAYS
case scm_tc7_bvect: case scm_tc7_uvect: case scm_tc7_ivect:
case scm_tc7_fvect: case scm_tc7_cvect: case scm_tc7_dvect:
case scm_tc7_svect:
case scm_tc7_bvect: case scm_tc7_uvect: case scm_tc7_ivect:
case scm_tc7_fvect: case scm_tc7_cvect: case scm_tc7_dvect:
case scm_tc7_svect:
@@
-134,6
+135,7
@@
scm_equal_p (x, y)
if ( scm_tc16_array
&& scm_smobs[0x0ff & (scm_tc16_array >> 8)].equalp)
return scm_array_equal_p(x, y);
if ( scm_tc16_array
&& scm_smobs[0x0ff & (scm_tc16_array >> 8)].equalp)
return scm_array_equal_p(x, y);
+#endif
}
return SCM_BOOL_F;
}
}
return SCM_BOOL_F;
}