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

* module/language/glil/compile-assembly.scm (dump-object): Whoops,
  really fix for multidimensional arrays.

diff --git a/module/language/glil/compile-assembly.scm b/module/language/glil/compile-assembly.scm
index 8bd61a3a20e4a452d5c41fa179c0673676abc223..53c423dbf31a1347d0e9df37d104b4c5562dbbe2 100644 (file)
--- 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