--- a/src/Pure/General/name_space.ML Sat Apr 08 22:51:20 2006 +0200
+++ b/src/Pure/General/name_space.ML Sat Apr 08 22:51:22 2006 +0200
@@ -275,7 +275,7 @@
in (fold (declare naming o #1) entries space, Symtab.extend (tab, entries)) end;
fun merge_tables eq ((space1, tab1), (space2, tab2)) =
- (merge (space1, space2), (Symtab.merge eq (tab1, tab2)));
+ (merge (space1, space2), Symtab.merge eq (tab1, tab2));
fun ext_table (space, tab) =
Symtab.fold (fn (name, x) => cons ((name, extern space name), x)) tab []