KrancTensor.m: Weirdness with packages

ianhinder · Jun 4, 2011 · 292f3f7 · 292f3f7
1 parent 5e8c1d4
commit 292f3f7
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/Tools/CodeGen/KrancTensor.m b/Tools/CodeGen/KrancTensor.m
@@ -23,9 +23,9 @@
 (****************************************************************************)
 (* Wrapper providing tensor support to Kranc (from TensorTools or xTensor)  *)
 (****************************************************************************)
-If[!ValueQ[$KrancTensorPackage], $KrancTensorPackage = "TensorToolsKranc`"];
 
-BeginPackage["KrancTensor`", {"Errors`", "KrancThorn`", "MapLookup`", "KrancGroups`", "Kranc`", $KrancTensorPackage}];
+$KrancTensorPackage = "TensorToolsKranc`";
+
 BeginPackage["KrancTensor`", {"Errors`", "KrancThorn`", "MapLookup`", "KrancGroups`", "Kranc`", $KrancTensorPackage, "ConservationCalculation`", "TensorTools`"}];
 
 CreateKrancThornTT::usage = "Construct a Kranc thorn using tensor expressions.";
@@ -48,6 +48,8 @@
     expCalcs = Map[makeCalculationExplicit, calcs];
     expConsCalcs = Map[makeCalculationExplicit, consCalcs];
 
+    Print["expConsCalcs = ", expConsCalcs];
+
     InfoMessage[Info, "Group definitions:", groups];
     VerifyGroups[groups];