bug in read syntax for arrays

[Daniel Llorens <daniel.llorens@bluewin.ch>]

[-- Attachment #1: Type: text/plain, Size: 358 bytes --]


In the latest git,

scheme@(guile-user)> #0(1)
While executing meta-command:
ERROR: Wrong type argument in position 1: #0(1)

The trivial patch attached fixes this problem. However make check passes without the patch, even though arrays.test contains the offending syntax #2((1 2) (3 4) (5 6)). I haven't looked into that.

Regards,

	Daniel.


[-- Attachment #2: 0001-Fix-compilation-of-untyped-arrays-of-rank-not-1.patch --]
[-- Type: application/octet-stream, Size: 1135 bytes --]

From 1dc54535b8cfc63606f190971d15072cedd28de7 Mon Sep 17 00:00:00 2001
From: Daniel Llorens <daniel.llorens@bluewin.ch>
Date: Mon, 5 Sep 2011 11:09:08 +0200
Subject: [PATCH] Fix compilation of untyped arrays of rank not 1

* module/language/glil/compile-assembly.scm: vector-fold2 expects vector.
---
 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 a081822..c76e412 100644
--- a/module/language/glil/compile-assembly.scm
+++ b/module/language/glil/compile-assembly.scm
@@ -856,7 +856,7 @@
             (vector-fold2 (lambda (x codes addr)
                             (receive (subcode addr) (ref-or-dump x i addr)
                               (values (cons subcode codes) addr)))
-                          x '() addr)
+                          contents '() addr)
           (receive (shape addr) (ref-or-dump (array-shape x) i addr)
             (values (fold append
                           (let ((len (vector-length contents)))
-- 
1.7.1