mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +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

6
libguile/ChangeLog
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> 2000-04-18 Dirk Herrmann <D.Herrmann@tu-bs.de>
* options.c (scm_options), read.c (recsexpr): Remove redundant * options.c (scm_options), read.c (recsexpr): Remove redundant

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)) if (SCM_IMP (lst) || SCM_NCONSP (lst))
return 0; return 0;
scm_array_set_x (SCM_ARRAY_V (ra), SCM_CAR (lst), SCM_MAKINUM (base));
base += inc; base += inc;
lst = SCM_CDR (lst); lst = SCM_CDR (lst);
} }