* Simplified gh_ints2scm by using SCM_FIXABLE.

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index c9250ad..3bf635e 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,7 @@
+2001-01-18  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+       * gh_data.c (gh_ints2scm):  Simplified using SCM_FIXABLE.
+
 2001-01-18  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
        * __scm.h:  Added comment about architecture and compiler

diff --git a/libguile/gh_data.c b/libguile/gh_data.c
index 33c6152..5597e9a 100644 (file)
--- a/libguile/gh_data.c
+++ b/libguile/gh_data.c
@@ -140,10 +140,8 @@ gh_ints2scm (int *d, int n)
   SCM *velts = SCM_VELTS(v);
 
   for (i = 0; i < n; ++i)
-    velts[i] = (d[i] >= SCM_MOST_NEGATIVE_FIXNUM
-               && d[i] <= SCM_MOST_POSITIVE_FIXNUM
-               ? SCM_MAKINUM (d[i])
-               : scm_long2big (d[i]));
+    velts[i] = (SCM_FIXABLE (d[i]) ? SCM_MAKINUM (d[i]) : scm_long2big (d[i]));
+
   return v;
 }