src/Pure/Isar/outer_parse.ML
changeset 30223 24d975352879
parent 29581 b3b33e0298eb
child 30339 3fc32dd7a647
--- a/src/Pure/Isar/outer_parse.ML	Tue Mar 03 18:31:59 2009 +0100
+++ b/src/Pure/Isar/outer_parse.ML	Tue Mar 03 18:32:01 2009 +0100
@@ -228,7 +228,7 @@
 (* names and text *)
 
 val name = group "name declaration" (short_ident || sym_ident || string || number);
-val binding = position name >> Binding.name_pos;
+val binding = position name >> Binding.make;
 val xname = group "name reference" (short_ident || long_ident || sym_ident || string || number);
 val text = group "text" (short_ident || long_ident || sym_ident || string || number || verbatim);
 val path = group "file name/path specification" name >> Path.explode;