mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

Fix compilation of untyped arrays of rank not 1

Browse source 
* module/language/glil/compile-assembly.scm: vector-fold2 expects vector.
This commit is contained in:
Daniel Llorens 2011-09-05 11:09:08 +02:00 • committed by Andy Wingo
parent ccb771575a
commit 78295f242a
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/glil/compile-assembly.scm
View file

@ -856,7 +856,7 @@
(vector-fold2 (lambda (x codes addr) (vector-fold2 (lambda (x codes addr)
(receive (subcode addr) (ref-or-dump x i addr) (receive (subcode addr) (ref-or-dump x i addr)
(values (cons subcode codes) addr))) (values (cons subcode codes) addr)))
x '() addr) contents '() addr)
(receive (shape addr) (ref-or-dump (array-shape x) i addr) (receive (shape addr) (ref-or-dump (array-shape x) i addr)
(values (fold append (values (fold append
(let ((len (vector-length contents))) (let ((len (vector-length contents)))