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;
     1 (*  Title:      Pure/ML-Systems/pp_dummy.ML
     2 
     3 Dummy setup for toplevel pretty printing.
     4 *)
     5 
     6 fun ml_pretty _ = raise Fail "ml_pretty dummy";
     7 fun pretty_ml _ = raise Fail "pretty_ml dummy";
     8 
     9 structure PolyML =
    10 struct
    11   fun addPrettyPrinter _ = ();
    12   fun prettyRepresentation _ =
    13     raise Fail "PolyML.prettyRepresentation dummy";
    14   open PolyML;
    15 end;
    16