guile/guile-core/libguile ChangeLog gh_data.c

[Dirk Herrmann]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Dirk Herrmann <address@hidden>  01/01/18 07:12:52

Modified files:
        guile-core/libguile: ChangeLog gh_data.c 

Log message:
        * Simplified gh_ints2scm by using SCM_FIXABLE.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ChangeLog.diff?r1=1.1236&r2=1.1237
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/gh_data.c.diff?r1=1.49&r2=1.50

Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1236 
guile/guile-core/libguile/ChangeLog:1.1237
--- guile/guile-core/libguile/ChangeLog:1.1236  Thu Jan 18 05:35:44 2001
+++ guile/guile-core/libguile/ChangeLog Thu Jan 18 07:12:51 2001
@@ -1,5 +1,9 @@
 2001-01-18  Dirk Herrmann  <address@hidden>
 
+       * gh_data.c (gh_ints2scm):  Simplified using SCM_FIXABLE.
+
+2001-01-18  Dirk Herrmann  <address@hidden>
+
        * __scm.h:  Added comment about architecture and compiler
        properties that are required by guile.
 
Index: guile/guile-core/libguile/gh_data.c
diff -u guile/guile-core/libguile/gh_data.c:1.49 
guile/guile-core/libguile/gh_data.c:1.50
--- guile/guile-core/libguile/gh_data.c:1.49    Thu Dec 28 08:49:09 2000
+++ guile/guile-core/libguile/gh_data.c Thu Jan 18 07:12:51 2001
@@ -140,10 +140,8 @@
   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;
 }