From 6c9832d3ec05d2df0444a6f31c79a11eafa56b72 Mon Sep 17 00:00:00 2001
From: Graydon Hoare <graydon@mozilla.com>
Date: Thu, 1 Jul 2010 19:27:20 -0700
Subject: Catch ast pretty-printer up with init-tup syntax.

---
 src/boot/fe/ast.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/boot/fe/ast.ml b/src/boot/fe/ast.ml
index e3360f31..6962a9e0 100644
--- a/src/boot/fe/ast.ml
+++ b/src/boot/fe/ast.ml
@@ -1045,7 +1045,7 @@ and fmt_stmt_body (ff:Format.formatter) (s:stmt) : unit =
 
       | STMT_init_tup (dst, entries) ->
           fmt_lval ff dst;
-          fmt ff " = (";
+          fmt ff " = tup(";
           for i = 0 to (Array.length entries) - 1
           do
             if i != 0
-- 
cgit v1.2.3