Improve some InfoMessage's

ianhinder · Mar 7, 2014 · c873d8e · c873d8e
1 parent 94a030b
commit c873d8e
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Tools/CodeGen/xTensorKranc.m b/Tools/CodeGen/xTensorKranc.m
@@ -72,6 +72,7 @@
 
 DefineTensor[t_[inds___], opts___] :=
  Block[{$DefInfoQ = False},
+  InfoMessage[InfoFull, "Defining tensor:" <> SymbolName[t]];
   DefTensor[t[inds], KrancManifold, opts];
   (* Automatically convert abstract and numeric indices to basis indices *)
   t[i___, j_?AbstractIndexQ, k___] := t[i, {j, KrancBasis}, k];
@@ -108,7 +109,7 @@
    to keep track of what the numerical discretisation should be. *)
 DefineDerivative[pd_, numderiv_] :=
  Block[{$DefInfoQ = False},
-  InfoMessage[InfoFull, "Defining derivative:", pd];
+  InfoMessage[InfoFull, "Defining derivative:" <> SymbolName[pd]];
   Module[{nd},
     DefInertHead[nd];
     NumericalDiscretisation[nd] ^= numderiv;