diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-10-26 07:46:54 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-10-26 07:46:54 +0000 |
commit | 3ffc7a360f053673fb5dc578c1a2334d0a07c653 (patch) | |
tree | d063169d3d6b3f5d8bb63c80debea17c255560b5 /libguile/unif.c | |
parent | fe1a46f0e20464bcb48efa2d3f421f5471e36ac3 (diff) | |
download | guile-3ffc7a360f053673fb5dc578c1a2334d0a07c653.tar.gz |
* numbers.c (num2long): As a software archeologist, I'm proud of
this finding! :) Preliminary dating suggests an almost 4 year old
remnant from the SCM ancestor. The sample has been removed from
the finding site and is now safely stored in the repository.
* numbers.h: Removed prototype for num2long.
* unif.c (scm_array_set_x): Use scm_num2long instead of num2long.
* gh_data.c (gh_scm2doubles): Make it possible to pass result
array as second arg.
(gh_chars2byvect, gh_shorts2svect, gh_floats2fvect, gh_scm2chars,
gh_scm2shorts, gh_scm2longs, gh_scm2floats): New functions.
* gh.h: Updated and added prototypes.
* gh_data.c (gh_ints2scm): Handle integers outside INUM limits.
Diffstat (limited to 'libguile/unif.c')
-rw-r--r-- | libguile/unif.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/unif.c b/libguile/unif.c index 736723082..23d29e3a5 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -1311,7 +1311,7 @@ scm_array_set_x (v, obj, args) case scm_tc7_uvect: SCM_VELTS(v)[pos] = scm_num2ulong(obj, (char *)SCM_ARG2, s_array_set_x); break; case scm_tc7_ivect: - SCM_VELTS(v)[pos] = num2long(obj, (char *)SCM_ARG2, s_array_set_x); break; + SCM_VELTS(v)[pos] = scm_num2long(obj, (char *)SCM_ARG2, s_array_set_x); break; # endif break; |