From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Kevin Ryde Newsgroups: gmane.lisp.guile.bugs Subject: Re: guile segfaults Date: Wed, 07 Jan 2004 08:10:45 +1000 Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Message-ID: <87n0909196.fsf@zip.com.au> References: <200401050401.i0541pWR002199@pc18.math.umbc.edu> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1073464077 7005 80.91.224.253 (7 Jan 2004 08:27:57 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 7 Jan 2004 08:27:57 +0000 (UTC) Cc: bug-guile@gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Wed Jan 07 09:27:54 2004 Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1Ae92f-0003Cv-00 for ; Wed, 07 Jan 2004 09:27:53 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.24) id 1Ae9yS-0005L4-7K for guile-bugs@m.gmane.org; Wed, 07 Jan 2004 04:27:36 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1Ae9uj-0003ih-Vw for bug-guile@gnu.org; Wed, 07 Jan 2004 04:23:45 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1Ae9uB-0003NR-Bz for bug-guile@gnu.org; Wed, 07 Jan 2004 04:23:42 -0500 Original-Received: from [61.8.0.36] (helo=snoopy.pacific.net.au) by monty-python.gnu.org with esmtp (Exim 4.24) id 1Ae9u9-0003Lj-QE for bug-guile@gnu.org; Wed, 07 Jan 2004 04:23:10 -0500 Original-Received: from mongrel.pacific.net.au (mongrel.pacific.net.au [61.8.0.107]) by snoopy.pacific.net.au (8.12.3/8.12.3/Debian-6.6) with ESMTP id i06MB0no022899; Wed, 7 Jan 2004 09:11:00 +1100 Original-Received: from localhost (ppp231.dyn11.pacific.net.au [61.8.11.231]) by mongrel.pacific.net.au (8.12.3/8.12.3/Debian-6.6) with ESMTP id i06MAwxs028836; Wed, 7 Jan 2004 09:10:59 +1100 Original-Received: from gg by localhost with local (Exim 3.35 #1 (Debian)) id 1AdzPS-0000Mg-00; Wed, 07 Jan 2004 08:10:46 +1000 Original-To: Rouben Rostamian User-Agent: Gnus/5.1004 (Gnus v5.10.4) Emacs/21.3 (gnu/linux) X-BeenThere: bug-guile@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Bug reports for GUILE, GNU's Ubiquitous Extension Language List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.lisp.guile.bugs:1078 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.bugs:1078 --=-=-= "Rouben Rostamian" 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. --=-=-= Content-Disposition: attachment; filename=unif.c.aind.diff --- 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); --=-=-= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Bug-guile mailing list Bug-guile@gnu.org http://mail.gnu.org/mailman/listinfo/bug-guile --=-=-=--