src/Pure/RAW/ml_parse_tree_polyml-5.6.ML
changeset 62512 922e702ae8ca
parent 62500 ff99681b3fd8
parent 62511 93fa1efc7219
child 62513 702085ca8564
equal deleted inserted replaced
62500:ff99681b3fd8 62512:922e702ae8ca
     1 (*  Title:      Pure/RAW/ml_parse_tree_polyml-5.6.ML
       
     2     Author:     Makarius
       
     3 
       
     4 Additional ML parse tree components for Poly/ML 5.6, or later.
       
     5 *)
       
     6 
       
     7 structure ML_Parse_Tree: ML_PARSE_TREE =
       
     8 struct
       
     9 
       
    10 fun completions (PolyML.PTcompletions x) = SOME x
       
    11   | completions _ = NONE;
       
    12 
       
    13 fun breakpoint (PolyML.PTbreakPoint x) = SOME x
       
    14   | breakpoint _ = NONE;
       
    15 
       
    16 end;