From 8be50daf85fee7129525cec08a980f606c04d66c Mon Sep 17 00:00:00 2001
From: Ian Hinder <ian.hinder@aei.mpg.de>
Date: Fri, 13 Sep 2013 18:15:17 +0200
Subject: KrancThorn.m: Move groups check to start of function

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

(limited to 'Tools')

diff --git a/Tools/CodeGen/KrancThorn.m b/Tools/CodeGen/KrancThorn.m
index 53d7bba..a7caac0 100644
--- a/Tools/CodeGen/KrancThorn.m
+++ b/Tools/CodeGen/KrancThorn.m
@@ -95,6 +95,8 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[
 
     cktCheckNamedArgs[{opts}];
 
+    CheckGroups[groupsOrig];
+
     c = NewObject[
       Code, 
       {"Name" -> thornName,
@@ -154,8 +156,6 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[
        Add coordinates group
        ------------------------------------------------------------------------ *)
 
-    CheckGroups[GetObjectField[c, "Groups"]];
-
     c = coordinatesProcessCode[c, opts];
 
     (* ------------------------------------------------------------------------ 
-- 
cgit v1.2.3