[Guile-commits] GNU Guile branch, master, updated. release_1-9-6-140-gc6a4432

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=c6a4432bf184bf13a1fd97407103f0c37010b5a1

The branch, master has been updated
       via  c6a4432bf184bf13a1fd97407103f0c37010b5a1 (commit)
      from  64fa96ef28f98b087bc5844c5d9944145a06e3c0 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit c6a4432bf184bf13a1fd97407103f0c37010b5a1
Author: Andy Wingo <address@hidden>
Date:   Mon Jan 11 22:21:18 2010 +0100

    fix compilation of #2((1 2 3) (4 5 6))
    
    * module/language/glil/compile-assembly.scm (dump-object): Whoops,
      really fix for multidimensional arrays.

-----------------------------------------------------------------------

Summary of changes:
 module/language/glil/compile-assembly.scm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/module/language/glil/compile-assembly.scm 
b/module/language/glil/compile-assembly.scm
index 8bd61a3..53c423d 100644
--- a/module/language/glil/compile-assembly.scm
+++ b/module/language/glil/compile-assembly.scm
@@ -586,7 +586,7 @@
            (len (vector-length contents)))
       (let dump-objects ((i 0) (codes '()) (addr addr))
         (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)
                             (addr+ addr code)))
             (fold append


hooks/post-receive
-- 
GNU Guile