src/Pure/RAW/ml_parse_tree_polyml-5.6.ML

proper syntax;

(*  Title:      Pure/RAW/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;