clarified order for 'print_syntax' command;
authorwenzelm
Sun, 29 Sep 2024 20:11:28 +0200
changeset 81005 7846fa2c1c1e
parent 81004 07ad0b407d38
child 81006 6d7dcb91ba5d
clarified order for 'print_syntax' command;
src/Pure/Syntax/syntax.ML
--- a/src/Pure/Syntax/syntax.ML	Sun Sep 29 19:51:23 2024 +0200
+++ b/src/Pure/Syntax/syntax.ML	Sun Sep 29 20:11:28 2024 +0200
@@ -399,7 +399,7 @@
 
 type ruletab = (Ast.ast * Ast.ast) list Symtab.table;
 
-fun dest_ruletab tab = maps snd (Symtab.dest tab);
+fun dest_ruletab tab = Symtab.dest tab |> sort_by #1 |> maps #2;
 
 val update_ruletab = fold_rev (fn r => Symtab.update_list (op =) (Ast.head_of_rule r, r));
 val remove_ruletab = fold (fn r => Symtab.remove_list (op =) (Ast.head_of_rule r, r));