From 5c82cb42e797599036746461eddf2bec1685eaf3 Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Wed, 15 Sep 2010 16:10:08 -0700 Subject: Add Ast.ATOM_pexp and -pexp mode wherein pexps live beyond parsing, into later stages. Fixes to pexp pretty printer. --- src/boot/me/resolve.ml | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/boot/me/resolve.ml') diff --git a/src/boot/me/resolve.ml b/src/boot/me/resolve.ml index d957e3b7..1be2e3b9 100644 --- a/src/boot/me/resolve.ml +++ b/src/boot/me/resolve.ml @@ -495,6 +495,9 @@ let type_resolving_visitor | Ast.COMP_atom (Ast.ATOM_literal _) -> ext | Ast.COMP_atom (Ast.ATOM_lval lv) -> Ast.COMP_atom (Ast.ATOM_lval (rebuild_lval lv)) + | Ast.COMP_atom (Ast.ATOM_pexp _) -> + bug () "Resolve.rebuild_lval' on ATOM_pexp" + | Ast.COMP_named (Ast.COMP_app (ident, params)) -> Ast.COMP_named (Ast.COMP_app (ident, Array.map resolve_ty params)) -- cgit v1.2.3