[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: A mess with GOOPS

From: Daniel Llorens
Subject: Re: A mess with GOOPS
Date: Tue, 6 Sep 2011 19:07:20 +0200

>> While compiling expression:
>> ERROR: In procedure vector-length: Wrong type argument in position 1
> 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.
> I'll try to look for the reason of this and let you know if I find
> anything interesting.
> Regards,
> M.


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 
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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]