Skip to content
Browse files

show how it looks in original syntax

  • Loading branch information...
1 parent 9786d0b commit 7daffd9573bef4145800f7ee8561985dc7d5e671 Jake Donham committed Sep 3, 2010
Showing with 6 additions and 1 deletion.
  1. +6 −1 _code/camlp4-syntax-extensions/pa_let_try/pa_let_try.ml
View
7 _code/camlp4-syntax-extensions/pa_let_try/pa_let_try.ml
@@ -21,7 +21,12 @@ struct
<:match_case< $p$ when $w$ -> fun () -> $e$ >>
| mc -> mc)
(Ast.list_of_match_case a []) in
- <:expr< (try let $rec:r$ $bi$ in fun () -> do { $e$ } with [ $list:a$ ])() >> ]
+ <:expr< (try let $rec:r$ $bi$ in fun () -> do { $e$ } with [ $list:a$ ])() >>
+(* original syntax:
+ let e = Ast.ExSeq (Ast.loc_of_expr e, e) in
+ <:expr< (try let $rec:r$ $bi$ in fun () -> $e$ with $list:a$)() >>
+*)
+ ]
];
END
end

0 comments on commit 7daffd9

Please sign in to comment.
Something went wrong with that request. Please try again.