From 12e066d5c56949f8eec876afcd0b70264721b8c3 Mon Sep 17 00:00:00 2001 From: Ian Hinder Date: Fri, 20 Apr 2012 20:04:09 +0200 Subject: ScriptOutput.m: Eliminate spurious DefFns --- Tools/CodeGen/ScriptOutput.m | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'Tools/CodeGen/ScriptOutput.m') 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]<>"}"; -- cgit v1.2.3