summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-01-18 15:12:51 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-01-18 15:12:51 +0000
commit8f379a8f61310fd4b75664777653044aaa54d173 (patch)
treebe123ce8202b9e4206aa8f07c41a3086328e0f86
parent5c75b29f1d3f318318a1645a268cd17d6452cbf5 (diff)
downloadguile-8f379a8f61310fd4b75664777653044aaa54d173.tar.gz
* Simplified gh_ints2scm by using SCM_FIXABLE.
-rw-r--r--libguile/ChangeLog4
-rw-r--r--libguile/gh_data.c6
2 files changed, 6 insertions, 4 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index c9250adca..3bf635e5a 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,5 +1,9 @@
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
properties that are required by guile.
diff --git a/libguile/gh_data.c b/libguile/gh_data.c
index 33c615251..5597e9a88 100644
--- 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;
}