diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-01-18 15:12:51 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-01-18 15:12:51 +0000 |
commit | 8f379a8f61310fd4b75664777653044aaa54d173 (patch) | |
tree | be123ce8202b9e4206aa8f07c41a3086328e0f86 /libguile/gh_data.c | |
parent | 5c75b29f1d3f318318a1645a268cd17d6452cbf5 (diff) | |
download | guile-8f379a8f61310fd4b75664777653044aaa54d173.tar.gz |
* Simplified gh_ints2scm by using SCM_FIXABLE.
Diffstat (limited to 'libguile/gh_data.c')
-rw-r--r-- | libguile/gh_data.c | 6 |
1 files changed, 2 insertions, 4 deletions
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; } |