From c6a4432bf184bf13a1fd97407103f0c37010b5a1 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 11 Jan 2010 22:21:18 +0100 Subject: [PATCH] fix compilation of #2((1 2 3) (4 5 6)) * module/language/glil/compile-assembly.scm (dump-object): Whoops, really fix for multidimensional arrays. --- module/language/glil/compile-assembly.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/language/glil/compile-assembly.scm b/module/language/glil/compile-assembly.scm index 8bd61a3a2..53c423dbf 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