From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Daniel Llorens Newsgroups: gmane.lisp.guile.bugs Subject: bug in read syntax for arrays Date: Mon, 5 Sep 2011 11:29:47 +0200 Message-ID: <451982B8-1CD2-4484-BB9E-D62E70CD3951@bluewin.ch> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 (Apple Message framework v1084) Content-Type: multipart/mixed; boundary=Apple-Mail-18--247144880 X-Trace: dough.gmane.org 1315215001 14363 80.91.229.12 (5 Sep 2011 09:30:01 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Mon, 5 Sep 2011 09:30:01 +0000 (UTC) To: bug-guile@gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Mon Sep 05 11:29:58 2011 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1R0VV6-0007yu-BN for guile-bugs@m.gmane.org; Mon, 05 Sep 2011 11:29:56 +0200 Original-Received: from localhost ([::1]:43867 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1R0VV5-0002im-Qe for guile-bugs@m.gmane.org; Mon, 05 Sep 2011 05:29:55 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:43504) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1R0VV3-0002ig-Ho for bug-guile@gnu.org; Mon, 05 Sep 2011 05:29:54 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1R0VV2-0004jh-H0 for bug-guile@gnu.org; Mon, 05 Sep 2011 05:29:53 -0400 Original-Received: from zhbdzmsp-smta17.bluewin.ch ([195.186.99.133]:54924) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1R0VV2-0004jL-7I for bug-guile@gnu.org; Mon, 05 Sep 2011 05:29:52 -0400 Original-Received: from [195.186.19.83] ([195.186.19.83:34209] helo=tr16.bluewin.ch) by zhbdzmsp-smta17.bluewin.ch (envelope-from ) (ecelerity 2.2.3.46 r()) with ESMTP id 07/79-20112-C86946E4; Mon, 05 Sep 2011 09:29:48 +0000 Original-Received: from [10.23.3.21] (128.179.67.121) by tr16.bluewin.ch (The Blue Window 8.5.119.018.5.119.01) (authenticated as dll@bluewin.ch) id 4DA834CB07D7A3DD for bug-guile@gnu.org; Mon, 5 Sep 2011 09:29:48 +0000 X-Mailer: Apple Mail (2.1084) X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 195.186.99.133 X-BeenThere: bug-guile@gnu.org X-Mailman-Version: 2.1.14 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 Original-Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.bugs:5809 Archived-At: --Apple-Mail-18--247144880 Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset=us-ascii In the latest git, scheme@(guile-user)> #0(1) While executing meta-command: ERROR: Wrong type argument in position 1: #0(1) The trivial patch attached fixes this problem. However make check passes = without the patch, even though arrays.test contains the offending syntax = #2((1 2) (3 4) (5 6)). I haven't looked into that. Regards, Daniel. --Apple-Mail-18--247144880 Content-Disposition: attachment; filename=0001-Fix-compilation-of-untyped-arrays-of-rank-not-1.patch Content-Type: application/octet-stream; name="0001-Fix-compilation-of-untyped-arrays-of-rank-not-1.patch" Content-Transfer-Encoding: quoted-printable =46rom=201dc54535b8cfc63606f190971d15072cedd28de7=20Mon=20Sep=2017=20= 00:00:00=202001=0AFrom:=20Daniel=20Llorens=20=0A= Date:=20Mon,=205=20Sep=202011=2011:09:08=20+0200=0ASubject:=20[PATCH]=20= Fix=20compilation=20of=20untyped=20arrays=20of=20rank=20not=201=0A=0A*=20= module/language/glil/compile-assembly.scm:=20vector-fold2=20expects=20= vector.=0A---=0A=20module/language/glil/compile-assembly.scm=20|=20=20=20= =202=20+-=0A=201=20files=20changed,=201=20insertions(+),=201=20= deletions(-)=0A=0Adiff=20--git=20= a/module/language/glil/compile-assembly.scm=20= b/module/language/glil/compile-assembly.scm=0Aindex=20a081822..c76e412=20= 100644=0A---=20a/module/language/glil/compile-assembly.scm=0A+++=20= b/module/language/glil/compile-assembly.scm=0A@@=20-856,7=20+856,7=20@@=0A= =20=20=20=20=20=20=20=20=20=20=20=20=20(vector-fold2=20(lambda=20(x=20= codes=20addr)=0A=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20= =20=20=20=20=20=20=20=20=20=20(receive=20(subcode=20addr)=20(ref-or-dump=20= x=20i=20addr)=0A=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20= =20=20=20=20=20=20=20=20=20=20=20=20(values=20(cons=20subcode=20codes)=20= addr)))=0A-=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20= =20=20=20=20=20x=20'()=20addr)=0A+=20=20=20=20=20=20=20=20=20=20=20=20=20= =20=20=20=20=20=20=20=20=20=20=20=20=20contents=20'()=20addr)=0A=20=20=20= =20=20=20=20=20=20=20=20(receive=20(shape=20addr)=20(ref-or-dump=20= (array-shape=20x)=20i=20addr)=0A=20=20=20=20=20=20=20=20=20=20=20=20=20= (values=20(fold=20append=0A=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20= =20=20=20=20=20=20=20=20=20=20=20(let=20((len=20(vector-length=20= contents)))=0A--=20=0A1.7.1=0A=0A= --Apple-Mail-18--247144880--