"Rouben Rostamian" <[EMAIL PROTECTED]> writes:
>
> Guile segfaults when given the following code:
>
> (define a (make-uniform-array 1/3 3 3))
> (uniform-array-set1! a 5.0 (cons 0 0))
Thanks, a dodgy argument check.
--- unif.c.~1.137.~ 2003-09-13 09:34:18.000000000 +1000
+++ unif.c 2004-01-06 15:34:23.000000000 +1000
@@ -473,7 +473,7 @@
scm_error_num_args_subr (what);
return pos + (SCM_INUM (args) - s->lbnd) * (s->inc);
}
- while (k && !SCM_NULLP (args))
+ while (k && SCM_CONSP (args))
{
ind = SCM_CAR (args);
args = SCM_CDR (args);
_______________________________________________
Bug-guile mailing list
[EMAIL PROTECTED]
http://mail.gnu.org/mailman/listinfo/bug-guile
