src/Pure/ML-Systems/ml_parse_tree_polyml-5.6.ML

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/Pure/ML-Systems/ml_parse_tree_polyml-5.6.ML	Sun Dec 06 23:10:08 2015 +0100
@@ -0,0 +1,16 @@
+(*  Title:      Pure/ML-Systems/ml_parse_tree_polyml-5.6.ML
+    Author:     Makarius
+
+Additional ML parse tree components for Poly/ML 5.6, or later.
+*)
+
+structure ML_Parse_Tree: ML_PARSE_TREE =
+struct
+
+fun completions (PolyML.PTcompletions x) = SOME x
+  | completions _ = NONE;
+
+fun breakpoint (PolyML.PTbreakPoint x) = SOME x
+  | breakpoint _ = NONE;
+
+end;
\ No newline at end of file