src/Pure/General/name_space.ML
changeset 55742 a989bdaf8121
parent 55696 de2668c50403
child 55840 2982d233d798
     1.1 --- a/src/Pure/General/name_space.ML	Tue Feb 25 12:53:08 2014 +0100
     1.2 +++ b/src/Pure/General/name_space.ML	Tue Feb 25 14:34:18 2014 +0100
     1.3 @@ -1,8 +1,8 @@
     1.4  (*  Title:      Pure/General/name_space.ML
     1.5      Author:     Markus Wenzel, TU Muenchen
     1.6  
     1.7 -Generic name spaces with declared and hidden entries.  Unknown names
     1.8 -are considered global; no support for absolute addressing.
     1.9 +Generic name spaces with declared and hidden entries; no support for
    1.10 +absolute addressing.
    1.11  *)
    1.12  
    1.13  type xstring = string;    (*external names*)
    1.14 @@ -120,7 +120,7 @@
    1.15  
    1.16  fun the_entry (Name_Space {kind, entries, ...}) name =
    1.17    (case Symtab.lookup entries name of
    1.18 -    NONE => error ("Unknown " ^ kind ^ " " ^ quote name)
    1.19 +    NONE => error (undefined kind name)
    1.20    | SOME (_, entry) => entry);
    1.21  
    1.22  fun entry_ord space = int_ord o pairself (#id o the_entry space);