@@ -850,7 +850,7 @@ and gen_value ctx e =
begin match s with
| "*" ->
gen_value ctx e1
- | "Function" ->
+ | "Function" | "Array" ->
spr ctx "((";
gen_value ctx e1;
print ctx ") as %s)" s;