KrancThorn.m: Move two functions to KrancGroups.m

2 files changed, 12 insertions, 10 deletions

diff --git a/Tools/CodeGen/KrancGroups.m b/Tools/CodeGen/KrancGroups.m
index 3866c42..51dd224 100644
--- a/Tools/CodeGen/KrancGroups.m
+++ b/Tools/CodeGen/KrancGroups.m
@@ -54,6 +54,8 @@ GroupTimelevels;
 allGroupVariables;
 NonevolvedTimelevels;
 CheckGroups;
+VerifyGroupNames;
+VerifyGroups;
 
 Begin["`Private`"];
 
@@ -266,6 +268,16 @@ CheckGroups[groups_] :=
       ThrowError["Variable names and group names must be distinct.  Group names which are also variable names:", int]];
   ];
 
+VerifyGroups[gs_] := 
+  If[!ListQ[gs],
+   ThrowError["Not a list of group definitions: ", gs],
+   Map[VerifyGroup, gs]];
+
+VerifyGroupNames[gns_] := 
+  If[!ListQ[gns],
+   ThrowError["Not a list of group names: ", gns],
+   Map[VerifyGroupName, gns]];
+
 End[];
 
 EndPackage[];
diff --git a/Tools/CodeGen/KrancThorn.m b/Tools/CodeGen/KrancThorn.m
index efe0292..f07ce08 100644
--- a/Tools/CodeGen/KrancThorn.m
+++ b/Tools/CodeGen/KrancThorn.m
@@ -41,16 +41,6 @@ Begin["`Private`"];
    Utility functions
    -------------------------------------------------------------------------- *)
 
-VerifyGroups[gs_] := 
-  If[!ListQ[gs],
-   ThrowError["Not a list of group definitions: ", gs],
-   Map[VerifyGroup, gs]];
-
-VerifyGroupNames[gns_] := 
-  If[!ListQ[gns],
-   ThrowError["Not a list of group names: ", gns],
-   Map[VerifyGroupName, gns]];
-
 cktCheckNamedArgs[l_] := 
 Module[{used, unrecognized},
     used = Map[First, l];