author | wenzelm |
Sat, 24 Nov 2001 16:57:34 +0100 | |
changeset 12286 | fe218fdc961a |
parent 12285 | 6490fc7b3eed |
child 12287 | 7017cee2f3ac |
src/Pure/sign.ML | file | annotate | diff | comparison | revisions |
--- a/src/Pure/sign.ML Sat Nov 24 16:56:26 2001 +0100 +++ b/src/Pure/sign.ML Sat Nov 24 16:57:34 2001 +0100 @@ -1086,7 +1086,7 @@ (* merge_stamps *) fun merge_stamps stamps1 stamps2 = - let val stamps = merge_rev_lists stamps1 stamps2 in + let val stamps = merge_lists' stamps2 stamps1 in (case duplicates (map ! stamps) of [] => stamps | dups => raise TERM ("Attempt to merge different versions of theories "