From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Daniel Llorens Newsgroups: gmane.lisp.guile.user Subject: Re: A mess with GOOPS Date: Tue, 6 Sep 2011 19:07:20 +0200 Message-ID: <9AD63DD7-6954-476D-AFB0-F2975D4D84CA@bluewin.ch> References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 (Apple Message framework v1084) Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: quoted-printable X-Trace: dough.gmane.org 1315328862 29656 80.91.229.12 (6 Sep 2011 17:07:42 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 6 Sep 2011 17:07:42 +0000 (UTC) To: guile-user@gnu.org Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Tue Sep 06 19:07:38 2011 Return-path: Envelope-to: guile-user@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 1R0z7a-0000ml-7T for guile-user@m.gmane.org; Tue, 06 Sep 2011 19:07:38 +0200 Original-Received: from localhost ([::1]:45948 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1R0z7Z-000655-Rj for guile-user@m.gmane.org; Tue, 06 Sep 2011 13:07:37 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:39721) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1R0z7U-00060j-65 for guile-user@gnu.org; Tue, 06 Sep 2011 13:07:36 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1R0z7M-0006YR-EU for guile-user@gnu.org; Tue, 06 Sep 2011 13:07:32 -0400 Original-Received: from zhhdzmsp-smta16.bluewin.ch ([195.186.227.132]:43354) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1R0z7M-0006Y8-7i for guile-user@gnu.org; Tue, 06 Sep 2011 13:07:24 -0400 Original-Received: from [195.186.19.83] ([195.186.19.83:33853] helo=tr16.bluewin.ch) by zhhdzmsp-smta16.bluewin.ch (envelope-from ) (ecelerity 2.2.3.46 r()) with ESMTP id 73/25-00766-843566E4; Tue, 06 Sep 2011 17:07:20 +0000 Original-Received: from [10.0.1.6] (85.1.127.244) by tr16.bluewin.ch (The Blue Window 8.5.119.018.5.119.01) (authenticated as dll@bluewin.ch) id 4DA834CB07EAD352; Tue, 6 Sep 2011 17:07:20 +0000 In-Reply-To: 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.227.132 X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org Original-Sender: guile-user-bounces+guile-user=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.user:8776 Archived-At: >> While compiling expression: >> ERROR: In procedure vector-length: Wrong type argument in position 1 >>=20 >=20 > Oh, and I forgot to mention -- the error appears when I try > to apply these funtions to regular (non-typed) array with rank > 1. > It works for typed arrays, vectors and uvecs. >=20 > I'll try to look for the reason of this and let you know if I find > anything interesting. >=20 > Regards, > M. Hi, I posted a patch for precisely this error yesterday on bug-guile. It's a = trivial bug in module/language/glil/compile-assembly.scm, but I don't = know why array.test didn't catch it. diff --git a/module/language/glil/compile-assembly.scm = b/module/language/glil/compile-assembly.scm index a081822..c76e412 100644 --- a/module/language/glil/compile-assembly.scm +++ b/module/language/glil/compile-assembly.scm @@ -856,7 +856,7 @@ (vector-fold2 (lambda (x codes addr) (receive (subcode addr) (ref-or-dump x i = addr) (values (cons subcode codes) addr))) - x '() addr) + contents '() addr) (receive (shape addr) (ref-or-dump (array-shape x) i addr) (values (fold append (let ((len (vector-length contents))) --=20 1.7.1 Regards, Daniel.