diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2012-04-20 20:04:09 +0200 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2012-04-20 20:04:09 +0200 |
commit | 12e066d5c56949f8eec876afcd0b70264721b8c3 (patch) | |
tree | f787485fa94eb7de231add04c28f258be862caf0 /Tools/CodeGen/ScriptOutput.m | |
parent | af413d2f3e2129dcaa2b96950ed132545fe9193e (diff) |
ScriptOutput.m: Eliminate spurious DefFns
Diffstat (limited to 'Tools/CodeGen/ScriptOutput.m')
-rw-r--r-- | Tools/CodeGen/ScriptOutput.m | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/Tools/CodeGen/ScriptOutput.m b/Tools/CodeGen/ScriptOutput.m index d2d195b..a20ca70 100644 --- a/Tools/CodeGen/ScriptOutput.m +++ b/Tools/CodeGen/ScriptOutput.m @@ -65,18 +65,18 @@ DefFn[ Riffle[Map[writeExpression, lookup[calc, Equations]],"\n"], Indent -> True]]; -DefFn[writeExpression[lhs_ -> rhs_] := - {writeExpression[lhs], " = ", writeExpression[rhs]}]; +writeExpression[lhs_ -> rhs_] := + {writeExpression[lhs], " = ", writeExpression[rhs]}; -DefFn[writeExpression[Tensor[T_, inds___]] := - {ToString[T], writeExpression[{inds}]}]; +writeExpression[Tensor[T_, inds___]] := + {ToString[T], writeExpression[{inds}]}; -DefFn[writeExpression[List[inds__TensorIndex]] := - Map[{#[[1,2]]/.{"u"->"^","l"->"_"},writeExpression/@#} &, - SplitBy[{inds},#[[2]]&]]]; +writeExpression[List[inds__TensorIndex]] := + Map[{#[[1,2]]/.{"u"->"^","l"->"_"},writeExpression/@#} &, + SplitBy[{inds},#[[2]]&]]; -DefFn[writeExpression[TensorIndex[sym_, _]] := - ToString[sym]]; +writeExpression[TensorIndex[sym_, _]] := + ToString[sym]; writeExpression[lhs_] := "@{"<>ToString[FullForm@lhs]<>"}"; |