summaryrefslogtreecommitdiff
path: root/libguile/unif.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1998-10-26 07:46:54 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1998-10-26 07:46:54 +0000
commit3ffc7a360f053673fb5dc578c1a2334d0a07c653 (patch)
treed063169d3d6b3f5d8bb63c80debea17c255560b5 /libguile/unif.c
parentfe1a46f0e20464bcb48efa2d3f421f5471e36ac3 (diff)
downloadguile-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.c2
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;