diff -r 9942cd184c48 -r ccea41fb5c39 src/Pure/context.ML --- a/src/Pure/context.ML Wed May 14 14:43:34 2008 +0200 +++ b/src/Pure/context.ML Wed May 14 14:43:37 2008 +0200 @@ -209,8 +209,8 @@ Inttab.exists (equal name o #2) ids orelse Inttab.exists (equal name o #2) iids; -fun names_of (Theory ({id, ids, iids, ...}, _, _, _)) = - rev (#2 id :: Inttab.fold (cons o #2) iids (Inttab.fold (cons o #2) ids [])); +fun names_of (Theory ({id, ids, ...}, _, _, _)) = + rev (#2 id :: Inttab.fold (cons o #2) ids []); fun pretty_thy thy = Pretty.str_list "{" "}" (names_of thy @ (if is_stale thy then ["!"] else []));