discontinued slightly odd "Defining record ..." message and corresponding quiet_mode;
authorwenzelm
Fri Sep 02 17:57:37 2011 +0200 (2011-09-02 ago)
changeset 446536d8d09b90398
parent 44652 1cc7df9ff83b
child 44654 d80fe56788a5
discontinued slightly odd "Defining record ..." message and corresponding quiet_mode;
src/HOL/SPARK/Tools/spark_vcs.ML
src/HOL/Tools/record.ML
     1.1 --- a/src/HOL/SPARK/Tools/spark_vcs.ML	Fri Sep 02 16:20:09 2011 +0200
     1.2 +++ b/src/HOL/SPARK/Tools/spark_vcs.ML	Fri Sep 02 17:57:37 2011 +0200
     1.3 @@ -349,7 +349,7 @@
     1.4           map (rpair (mk_type thy prfx ty)) flds) fldtys
     1.5         in case get_type thy prfx s of
     1.6             NONE =>
     1.7 -             Record.add_record true ([], Binding.name s) NONE
     1.8 +             Record.add_record ([], Binding.name s) NONE
     1.9                 (map (fn (fld, T) => (Binding.name fld, T, NoSyn)) fldTs) thy
    1.10           | SOME rT =>
    1.11               (case get_record_info thy rT of
     2.1 --- a/src/HOL/Tools/record.ML	Fri Sep 02 16:20:09 2011 +0200
     2.2 +++ b/src/HOL/Tools/record.ML	Fri Sep 02 17:57:37 2011 +0200
     2.3 @@ -26,7 +26,7 @@
     2.4    val get_info: theory -> string -> info option
     2.5    val the_info: theory -> string -> info
     2.6    val get_hierarchy: theory -> (string * typ list) -> (string * ((string * sort) * typ) list) list
     2.7 -  val add_record: bool -> (string * sort) list * binding -> (typ list * string) option ->
     2.8 +  val add_record: (string * sort) list * binding -> (typ list * string) option ->
     2.9      (binding * typ * mixfix) list -> theory -> theory
    2.10  
    2.11    val last_extT: typ -> (string * typ list) option
    2.12 @@ -2438,12 +2438,9 @@
    2.13  
    2.14  in
    2.15  
    2.16 -fun add_record quiet_mode (params, binding) raw_parent raw_fields thy =
    2.17 +fun add_record (params, binding) raw_parent raw_fields thy =
    2.18    let
    2.19      val _ = Theory.requires thy "Record" "record definitions";
    2.20 -    val _ =
    2.21 -      if quiet_mode then ()
    2.22 -      else writeln ("Defining record " ^ Binding.print binding ^ " ...");
    2.23  
    2.24      val ctxt = Proof_Context.init_global thy;
    2.25      fun cert_typ T = Type.no_tvars (Proof_Context.cert_typ ctxt T)
    2.26 @@ -2493,7 +2490,7 @@
    2.27    end
    2.28    handle ERROR msg => cat_error msg ("Failed to define record " ^ Binding.print binding);
    2.29  
    2.30 -fun add_record_cmd quiet_mode (raw_params, binding) raw_parent raw_fields thy =
    2.31 +fun add_record_cmd (raw_params, binding) raw_parent raw_fields thy =
    2.32    let
    2.33      val ctxt = Proof_Context.init_global thy;
    2.34      val params = map (apsnd (Typedecl.read_constraint ctxt)) raw_params;
    2.35 @@ -2501,7 +2498,7 @@
    2.36      val (parent, ctxt2) = read_parent raw_parent ctxt1;
    2.37      val (fields, ctxt3) = fold_map read_field raw_fields ctxt2;
    2.38      val params' = map (Proof_Context.check_tfree ctxt3) params;
    2.39 -  in thy |> add_record quiet_mode (params', binding) parent fields end;
    2.40 +  in thy |> add_record (params', binding) parent fields end;
    2.41  
    2.42  end;
    2.43  
    2.44 @@ -2521,6 +2518,6 @@
    2.45      (Parse.type_args_constrained -- Parse.binding --
    2.46        (Parse.$$$ "=" |-- Scan.option (Parse.typ --| Parse.$$$ "+") --
    2.47          Scan.repeat1 Parse.const_binding)
    2.48 -    >> (fn (x, (y, z)) => Toplevel.theory (add_record_cmd false x y z)));
    2.49 +    >> (fn (x, (y, z)) => Toplevel.theory (add_record_cmd x y z)));
    2.50  
    2.51  end;