mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

Fixed a stupid bug introduced with the last patch. Sorry.

Browse source
This commit is contained in:
Dirk Herrmann 2000-04-18 15:49:34 +00:00
parent 120d4924ed
commit baa702c81f
2 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/unif.c
View file

@ -2210,6 +2210,7 @@ l2ra (SCM lst, SCM ra, scm_sizet base, scm_sizet k)
{
if (SCM_IMP (lst) || SCM_NCONSP (lst))
return 0;
scm_array_set_x (SCM_ARRAY_V (ra), SCM_CAR (lst), SCM_MAKINUM (base));
base += inc;
lst = SCM_CDR (lst);
}