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

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

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

View file

@ -1,3 +1,9 @@
2000-04-18 Dirk Herrmann <D.Herrmann@tu-bs.de>
* unif.c (l2ra): Don't eliminate the call to scm_array_set_x
itself, as was done in the previous 'patch'. (Thanks to Radey
Shouman)
2000-04-18 Dirk Herrmann <D.Herrmann@tu-bs.de>
* options.c (scm_options), read.c (recsexpr): Remove redundant

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