# HG changeset patch
# User wenzelm
# Date 962999512 -7200
# Node ID a4881859567003077b04c54a8a187b2763b3f302
# Parent  78a9bca983ac48cee10ff9d10de3872cc48d3b84
inter_sort: keep normal!

diff -r 78a9bca983ac -r a48818595670 src/Pure/sorts.ML
--- a/src/Pure/sorts.ML	Fri Jul 07 18:29:34 2000 +0200
+++ b/src/Pure/sorts.ML	Fri Jul 07 21:51:52 2000 +0200
@@ -130,7 +130,7 @@
   in intr S end;
 
 (*instersect sorts (preserves minimality)*)
-fun inter_sort classrel = foldr (inter_class classrel);
+fun inter_sort classrel = sort_strings o foldr (inter_class classrel);