From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Christopher Cramer Newsgroups: gmane.lisp.guile.bugs,gmane.lisp.guile.devel,gmane.lisp.guile.user Subject: Re: Strange behaviour of array? Date: Fri, 15 Nov 2002 02:12:13 -0600 Sender: bug-guile-admin@gnu.org Message-ID: <20021115021213.B12469@kiwi.pyrotechnics.com> References: <20021105115705.GA6539@www> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1037348733 29072 80.91.224.249 (15 Nov 2002 08:25:33 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Fri, 15 Nov 2002 08:25:33 +0000 (UTC) Cc: guile-devel@gnu.org, guile-user@gnu.org, bug-guile@gnu.org Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18Cbn7-0007YT-00 for ; Fri, 15 Nov 2002 09:25:30 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.10) id 18Cblx-0008JV-00; Fri, 15 Nov 2002 03:24:17 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.10) id 18CbWg-0007FJ-00 for bug-guile@gnu.org; Fri, 15 Nov 2002 03:08:30 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.10) id 18CbWa-0007Ch-00 for bug-guile@gnu.org; Fri, 15 Nov 2002 03:08:27 -0500 Original-Received: from pyro.net ([207.7.10.6] helo=kiwi.pyro.net) by monty-python.gnu.org with smtp (Exim 4.10) id 18CbWZ-0007CP-00 for bug-guile@gnu.org; Fri, 15 Nov 2002 03:08:23 -0500 Original-Received: (qmail 19031 invoked by uid 8610); 15 Nov 2002 08:12:13 -0000 Original-To: tomas@fabula.de Mail-Followup-To: tomas@fabula.de, guile-devel@gnu.org, guile-user@gnu.org, bug-guile@gnu.org Content-Disposition: inline User-Agent: Mutt/1.2.5i In-Reply-To: <20021105115705.GA6539@www>; from tomas@fabula.de on Tue, Nov 05, 2002 at 12:57:06PM +0100 Errors-To: bug-guile-admin@gnu.org X-BeenThere: bug-guile@gnu.org X-Mailman-Version: 2.0.11 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Bug reports for GUILE, GNU's Ubiquitous Extension Language List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.lisp.guile.bugs:568 gmane.lisp.guile.devel:1708 gmane.lisp.guile.user:1360 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.devel:1708 On Tue, Nov 05, 2002 at 12:57:06PM +0100, tomas@fabula.de wrote: > It seems that many non-immediate values returns #t on array?. Looking > at the source (libguile/unif.c, around line 280) kind of semi-confirms > this (as far as I understand this tagging business). > > This is against guile 1.6.0 as released (I haven't the time to check > now against CVS for lack of a suitable autoconf :-( I distinctly remember sending a patch to fix this to either bug-guile or guile-devel a loooong time ago, but I can't find it in the archives. I'm surprised it's not fixed in 1.6.0, but maybe it's because I never sent the patch in... Index: libguile/unif.c =================================================================== RCS file: /cvsroot/guile/guile/guile-core/libguile/unif.c,v retrieving revision 1.120.2.5 diff -u -r1.120.2.5 unif.c --- libguile/unif.c 22 Feb 2002 23:04:15 -0000 1.120.2.5 +++ libguile/unif.c 13 Mar 2002 00:57:19 -0000 @@ -295,7 +295,7 @@ int enclosed; nprot = SCM_UNBNDP (prot); enclosed = 0; - if (SCM_IMP (v)) + if (SCM_IMP (v) || (!SCM_ARRAYP(v) && !SCM_VECTORP(v))) return SCM_BOOL_F; while (SCM_TYP7 (v) == scm_tc7_smob) @@ -309,7 +309,7 @@ v = SCM_ARRAY_V (v); } if (nprot) - return SCM_BOOL(nprot); + return SCM_BOOL_T; else { int protp = 0; -- Christopher Cramer "Gore would have finished ahead by the barest of margins had he pursued and gained a complete statewide recount." -- Associated Press, 9/6/2002 _______________________________________________ Bug-guile mailing list Bug-guile@gnu.org http://mail.gnu.org/mailman/listinfo/bug-guile