From b450838c46150ac381719fd0093a71b6efe2b21e Mon Sep 17 00:00:00 2001
From: Graydon Hoare <graydon@mozilla.com>
Date: Wed, 30 Jun 2010 15:12:42 -0700
Subject: Fix recently-broken lval formatter.

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

(limited to 'src')

diff --git a/src/boot/fe/ast.ml b/src/boot/fe/ast.ml
index 7edfd432..b33db3a7 100644
--- a/src/boot/fe/ast.ml
+++ b/src/boot/fe/ast.ml
@@ -874,6 +874,8 @@ and fmt_lval (ff:Format.formatter) (l:lval) : unit =
                 fmt ff ".";
                 fmt_name_component ff nc
             | COMP_atom a ->
+                fmt_lval ff lv;
+                fmt ff ".";
                 fmt_bracketed "(" ")" fmt_atom ff a;
             | COMP_deref ->
                 fmt ff "*";
-- 
cgit v1.2.3