renamed module to thyname
authorhaftmann
Thu Aug 17 09:24:48 2006 +0200 (2006-08-17)
changeset 20390c80247278cb6
parent 20389 8b6ecb22ef35
child 20391 d079804d3b82
renamed module to thyname
src/Pure/defs.ML
     1.1 --- a/src/Pure/defs.ML	Thu Aug 17 09:24:47 2006 +0200
     1.2 +++ b/src/Pure/defs.ML	Thu Aug 17 09:24:48 2006 +0200
     1.3 @@ -11,7 +11,7 @@
     1.4    val pretty_const: Pretty.pp -> string * typ list -> Pretty.T
     1.5    val plain_args: typ list -> bool
     1.6    type T
     1.7 -  val specifications_of: T -> string -> (serial * {is_def: bool, module: string, name: string,
     1.8 +  val specifications_of: T -> string -> (serial * {is_def: bool, thyname: string, name: string,
     1.9      lhs: typ list, rhs: (string * typ list) list}) list
    1.10    val dest: T ->
    1.11     {restricts: ((string * typ list) * string) list,
    1.12 @@ -51,7 +51,7 @@
    1.13  
    1.14  (* datatype defs *)
    1.15  
    1.16 -type spec = {is_def: bool, module: string, name: string, lhs: args, rhs: (string * args) list};
    1.17 +type spec = {is_def: bool, thyname: string, name: string, lhs: args, rhs: (string * args) list};
    1.18  
    1.19  type def =
    1.20   {specs: spec Inttab.table,                 (*source specifications*)
    1.21 @@ -198,14 +198,14 @@
    1.22  
    1.23  (* define *)
    1.24  
    1.25 -fun define pp unchecked is_def module name (c, args) deps (Defs defs) =
    1.26 +fun define pp unchecked is_def thyname name (c, args) deps (Defs defs) =
    1.27    let
    1.28      val restr =
    1.29        if plain_args args orelse
    1.30          (case args of [Type (a, rec_args)] => plain_args rec_args | _ => false)
    1.31        then [] else [(args, name)];
    1.32      val spec =
    1.33 -      (serial (), {is_def = is_def, module = module, name = name, lhs = args, rhs = deps});
    1.34 +      (serial (), {is_def = is_def, thyname = thyname, name = name, lhs = args, rhs = deps});
    1.35      val defs' = defs |> update_specs c spec;
    1.36    in Defs (defs' |> (if unchecked then I else dependencies pp (c, args) restr deps)) end;
    1.37