Eta-expanded a function decl to make sml/nj happy

--- a/src/Pure/Thy/thy_parse.ML	Fri Oct 17 11:10:13 1997 +0200
+++ b/src/Pure/Thy/thy_parse.ML	Fri Oct 17 11:10:54 1997 +0200
@@ -415,7 +415,7 @@
 
 (* global *)
 
-val global_decl = empty >> K "\"/\"";
+fun global_decl x = (empty >> K "\"/\"") x;