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:
parent
120d4924ed
commit
baa702c81f
2 changed files with 7 additions and 0 deletions
|
@ -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
|
||||
|
|
|
@ -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);
|
||||
}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue