Fix recently-broken lval formatter.

2010-06-30 15:12:42 -07:00 · 2010-06-30 15:12:42 -07:00 · b450838c46
commit b450838c46
parent 6c3a2491d8
1 changed files with 2 additions and 0 deletions
--- 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 "*";