diff options
| author | Maxime Dénès | 2017-05-20 10:21:24 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-05-20 10:21:24 +0200 |
| commit | 8a68622ea38959e2c83653e809c50324da1a8412 (patch) | |
| tree | 5e0448a59928b7b2f0d31c6d9e0898f3ef18f4b2 /ide/ide_slave.ml | |
| parent | b7cf93cec115b61889e31c0abefdbd29d9b51ebe (diff) | |
| parent | 6a412da0f2681ede8f2753666bb9098e7ac8bfd2 (diff) | |
Merge PR#643: [ide] Disable `print_ast` call.
Diffstat (limited to 'ide/ide_slave.ml')
| -rw-r--r-- | ide/ide_slave.ml | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/ide/ide_slave.ml b/ide/ide_slave.ml index 56ada9d132..dbca959eae 100644 --- a/ide/ide_slave.ml +++ b/ide/ide_slave.ml @@ -388,14 +388,8 @@ let interp ((_raw, verbose), s) = let quit = ref false -(** Serializes the output of Stm.get_ast *) -let print_ast id = - match Stm.get_ast id with - | Some (expr, loc) -> begin - try Texmacspp.tmpp expr loc - with e -> Xml_datatype.PCData ("ERROR " ^ Printexc.to_string e) - end - | None -> Xml_datatype.PCData "ERROR" +(** Disabled *) +let print_ast id = Xml_datatype.PCData "ERROR" (** Grouping all call handlers together + error handling *) |