X-Git-Url: http://lambda.jimpryor.net/git/gitweb.cgi?p=lambda.git;a=blobdiff_plain;f=code%2Fgsv2.ml;h=7f2775a7994dcc23e3e516b81523e17f638b7ca5;hp=b7f044b459c5a72850bf60fd31d566dd6c8e8fe2;hb=ad14f269d489cc9a2ea9e522e2da37a42cfd46b3;hpb=daeb5d67207436ec5179e59098c11fe4b5525685

diff --git a/code/gsv2.ml b/code/gsv2.ml
index b7f044b4..7f2775a7 100644
--- a/code/gsv2.ml
+++ b/code/gsv2.ml
@@ -1053,21 +1053,21 @@ module TestAll = struct
   print_endline "\nTesting Sem1b";;
   module T1b = Test(Sem1b);;
   print_endline "\nTesting Sem3a";;
-  module T2a = Test(Sem3a);;
+  module T3a = Test(Sem3a);;
   print_endline "\nTesting Sem3c";;
-  module T2c = Test(Sem3c);;
+  module T3c = Test(Sem3c);;
   print_endline "\nTesting Sem4a";;
-  module T3a = Test(Sem4a);;
+  module T4a = Test(Sem4a);;
   print_endline "\nTesting Sem4c";;
-  module T3c = Test(Sem4c);;
+  module T4c = Test(Sem4c);;
   print_endline "\nTesting Sem7c";;
-  module T5c = Test(Sem7c);;
+  module T7c = Test(Sem7c);;
   print_endline "\nTesting Sem7f";;
-  module T5e = Test(Sem7f);;
+  module T7f = Test(Sem7f);;
   print_endline "\nTesting Sem8c";;
-  module T6c = Test(Sem8c);;
+  module T8c = Test(Sem8c);;
   print_endline "\nTesting Sem8f";;
-  module T6e = Test(Sem8f);;
+  module T8f = Test(Sem8f);;
   print_newline ()
 end