diff options
| author | Graydon Hoare <graydon@mozilla.com> | 2010-09-15 16:10:08 -0700 |
|---|---|---|
| committer | Graydon Hoare <graydon@mozilla.com> | 2010-09-15 16:10:08 -0700 |
| commit | 5c82cb42e797599036746461eddf2bec1685eaf3 (patch) | |
| tree | f4a79464c688a7002c26620522d40b770bd63e04 /src/boot/fe/parser.ml | |
| parent | 3350b17c60eec98264c62c3e12893d5ca8e00e7d (diff) | |
Add Ast.ATOM_pexp and -pexp mode wherein pexps live beyond parsing, into later stages. Fixes to pexp pretty printer.
Diffstat (limited to 'src/boot/fe/parser.ml')
| -rw-r--r-- | src/boot/fe/parser.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/boot/fe/parser.ml b/src/boot/fe/parser.ml index 0c7a2f6f543..883ee01d0ae 100644 --- a/src/boot/fe/parser.ml +++ b/src/boot/fe/parser.ml @@ -164,6 +164,7 @@ let clone_atom (ps:pstate) (atom:Ast.atom) : Ast.atom = match atom with Ast.ATOM_literal _ -> atom | Ast.ATOM_lval lv -> Ast.ATOM_lval (clone_lval ps lv) + | Ast.ATOM_pexp _ -> bug () "Parser.clone_atom on ATOM_pexp" ;; let ctxt (n:string) (f:pstate -> 'a) (ps:pstate) : 'a = |