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

* numbers.c (num2long): As a software archeologist, I'm proud of

Browse source 
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.
This commit is contained in:
Mikael Djurfeldt 1998-10-26 07:46:54 +00:00
parent fe1a46f0e2
commit 3ffc7a360f
7 changed files with 293 additions and 74 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/unif.c
View file

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