From 7e3abe9d51900eb50c733b8ce60b9565789d7d63 Mon Sep 17 00:00:00 2001
From: Barry Wardell <barry.wardell@gmail.com>
Date: Thu, 12 May 2011 19:28:05 +0200
Subject: Re-add missing Checkpoint tag to tensors.

---
 Tools/CodeGen/TensorToolsKranc.m | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Tools/CodeGen')

diff --git a/Tools/CodeGen/TensorToolsKranc.m b/Tools/CodeGen/TensorToolsKranc.m
index ebac9e6..1abda8b 100644
--- a/Tools/CodeGen/TensorToolsKranc.m
+++ b/Tools/CodeGen/TensorToolsKranc.m
@@ -76,6 +76,10 @@ CreateGroupFromTensor[k_, inds_] :=
                           reflectionParityString[GetTensorAttribute[k, TensorManualCartesianParities]]]];
     If[HasTensorAttribute[k, TensorParity],
       tags = Append[tags, "tensorparity" -> GetTensorAttribute[k, TensorParity]]];
+
+    If[HasTensorAttribute[k, Checkpoint],
+      tags = Append[tags, "checkpoint" -> GetTensorAttribute[k, Checkpoint]]];
+
     vars = If[nInds == 0, {k}, {Apply[Tensor, {k, Apply[Sequence,inds]}]}];
     group = CreateGroup[ToString[k] <> "_group", vars, {Tags -> tags}];
     Return[group]];
-- 
cgit v1.2.3