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

fix compilation of #2((1 2 3) (4 5 6))

Browse source 
* module/language/glil/compile-assembly.scm (dump-object): Whoops,
  really fix for multidimensional arrays.
This commit is contained in:
Andy Wingo 2010-01-11 22:21:18 +01:00
parent 64fa96ef28
commit c6a4432bf1
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

@ -586,7 +586,7 @@
(len (vector-length contents))) (len (vector-length contents)))
(let dump-objects ((i 0) (codes '()) (addr addr)) (let dump-objects ((i 0) (codes '()) (addr addr))
(if (< i len) (if (< i len)
(let ((code (dump-object (vector-ref x i) addr))) (let ((code (dump-object (vector-ref contents i) addr)))
(dump-objects (1+ i) (cons code codes) (dump-objects (1+ i) (cons code codes)
(addr+ addr code))) (addr+ addr code)))
(fold append (fold append