From 5c82cb42e797599036746461eddf2bec1685eaf3 Mon Sep 17 00:00:00 2001
From: Graydon Hoare <graydon@mozilla.com>
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/semant.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/boot/me/semant.ml')

diff --git a/src/boot/me/semant.ml b/src/boot/me/semant.ml
index 09576219..42df903b 100644
--- a/src/boot/me/semant.ml
+++ b/src/boot/me/semant.ml
@@ -1326,6 +1326,7 @@ let rec atom_type (cx:ctxt) (at:Ast.atom) : Ast.ty =
     | Ast.ATOM_literal {node=(Ast.LIT_nil); id=_} -> Ast.TY_nil
     | Ast.ATOM_literal {node=(Ast.LIT_mach_int (m,_)); id=_} -> Ast.TY_mach m
     | Ast.ATOM_lval lv -> lval_ty cx lv
+    | Ast.ATOM_pexp _ -> bug () "Semant.atom_type on ATOM_pexp"
 ;;
 
 let expr_type (cx:ctxt) (e:Ast.expr) : Ast.ty =
-- 
cgit v1.2.3