src/Pure/ML-Systems/pp_dummy.ML
author wenzelm
Fri Apr 12 14:54:14 2013 +0200 (2013-04-12)
changeset 51700 c8f2bad67dbb
parent 38635 f76ad0771f67
permissions -rw-r--r--
tuned signature;
tuned comments;
wenzelm@38635
     1
(*  Title:      Pure/ML-Systems/pp_dummy.ML
wenzelm@38635
     2
wenzelm@38635
     3
Dummy setup for toplevel pretty printing.
wenzelm@38635
     4
*)
wenzelm@38635
     5
wenzelm@38635
     6
fun ml_pretty _ = raise Fail "ml_pretty dummy";
wenzelm@38635
     7
fun pretty_ml _ = raise Fail "pretty_ml dummy";
wenzelm@38635
     8
wenzelm@38635
     9
structure PolyML =
wenzelm@38635
    10
struct
wenzelm@38635
    11
  fun addPrettyPrinter _ = ();
wenzelm@38635
    12
  fun prettyRepresentation _ =
wenzelm@38635
    13
    raise Fail "PolyML.prettyRepresentation dummy";
wenzelm@38635
    14
  open PolyML;
wenzelm@38635
    15
end;
wenzelm@38635
    16