author | wenzelm |
Mon, 26 Nov 2001 18:33:08 +0100 | |
changeset 12296 | 45269a593e1b |
parent 12295 | 83f747db967c |
child 12297 | 2ce7b42b0a64 |
src/Pure/sign.ML | file | annotate | diff | comparison | revisions |
--- a/src/Pure/sign.ML Mon Nov 26 17:48:22 2001 +0100 +++ b/src/Pure/sign.ML Mon Nov 26 18:33:08 2001 +0100 @@ -1086,7 +1086,7 @@ (* merge_stamps *) fun merge_stamps stamps1 stamps2 = - let val stamps = merge_lists' stamps2 stamps1 in + let val stamps = merge_lists' stamps1 stamps2 in (case duplicates (map ! stamps) of [] => stamps | dups => raise TERM ("Attempt to merge different versions of theories "