src/Pure/ML/ml_pervasive.ML
author wenzelm
Sat, 02 Apr 2016 20:33:34 +0200
changeset 62818 2733b240bfea
child 62823 751bcf0473a7
permissions -rw-r--r--
clarified modules;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
62818
2733b240bfea clarified modules;
wenzelm
parents:
diff changeset
     1
(*  Title:      Pure/ML/ml_pervasive.ML
2733b240bfea clarified modules;
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
2733b240bfea clarified modules;
wenzelm
parents:
diff changeset
     3
2733b240bfea clarified modules;
wenzelm
parents:
diff changeset
     4
Pervasive ML environment.
2733b240bfea clarified modules;
wenzelm
parents:
diff changeset
     5
*)
2733b240bfea clarified modules;
wenzelm
parents:
diff changeset
     6
2733b240bfea clarified modules;
wenzelm
parents:
diff changeset
     7
val seconds = Time.fromReal;
2733b240bfea clarified modules;
wenzelm
parents:
diff changeset
     8
2733b240bfea clarified modules;
wenzelm
parents:
diff changeset
     9
val _ =
2733b240bfea clarified modules;
wenzelm
parents:
diff changeset
    10
  List.app ML_Name_Space.forget_val
2733b240bfea clarified modules;
wenzelm
parents:
diff changeset
    11
    ["isSome", "getOpt", "valOf", "foldl", "foldr", "print", "explode", "concat"];
2733b240bfea clarified modules;
wenzelm
parents:
diff changeset
    12
2733b240bfea clarified modules;
wenzelm
parents:
diff changeset
    13
val ord = SML90.ord;
2733b240bfea clarified modules;
wenzelm
parents:
diff changeset
    14
val chr = SML90.chr;
2733b240bfea clarified modules;
wenzelm
parents:
diff changeset
    15
val raw_explode = SML90.explode;
2733b240bfea clarified modules;
wenzelm
parents:
diff changeset
    16
val implode = SML90.implode;
2733b240bfea clarified modules;
wenzelm
parents:
diff changeset
    17
2733b240bfea clarified modules;
wenzelm
parents:
diff changeset
    18
val pointer_eq = PolyML.pointerEq;
2733b240bfea clarified modules;
wenzelm
parents:
diff changeset
    19
2733b240bfea clarified modules;
wenzelm
parents:
diff changeset
    20
val error_depth = PolyML.error_depth;
2733b240bfea clarified modules;
wenzelm
parents:
diff changeset
    21
2733b240bfea clarified modules;
wenzelm
parents:
diff changeset
    22
open Thread;