src/Pure/Syntax/syntax.ML
changeset 18428 4059413acbc1
parent 17496 26535df536ae
child 18678 dd0c569fa43d
--- a/src/Pure/Syntax/syntax.ML	Sat Dec 17 01:00:38 2005 +0100
+++ b/src/Pure/Syntax/syntax.ML	Sat Dec 17 01:00:40 2005 +0100
@@ -278,7 +278,7 @@
     ({input = merge_lists' input1 input2,
       lexicon = Scan.merge_lexicons lexicon1 lexicon2,
       gram = Parser.merge_grams gram1 gram2,
-      consts = unique_strings (sort_strings (consts1 @ consts2)),
+      consts = sort_distinct string_ord (consts1 @ consts2),
       prmodes = merge_lists prmodes1 prmodes2,
       parse_ast_trtab =
         merge_trtabs "parse ast translation" parse_ast_trtab1 parse_ast_trtab2,