mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

* Simplified gh_ints2scm by using SCM_FIXABLE.

Browse source
This commit is contained in:
Dirk Herrmann 2001-01-18 15:12:51 +00:00
parent 5c75b29f1d
commit 8f379a8f61
2 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -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

6
libguile/gh_data.c
View file

@ -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;
}