From f6b7863374906f25bc4bbb2f54fcef2598bbd027 Mon Sep 17 00:00:00 2001 From: Ian Hinder Date: Wed, 11 Sep 2013 14:07:35 +0200 Subject: CactusBoundary.m: Add type checking to GetParameters --- Tools/CodeGen/CactusBoundary.m | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Tools/CodeGen/CactusBoundary.m b/Tools/CodeGen/CactusBoundary.m index 14cbc70..ba4a0f4 100644 --- a/Tools/CodeGen/CactusBoundary.m +++ b/Tools/CodeGen/CactusBoundary.m @@ -146,7 +146,8 @@ createBoundScalarParam[groupOrGF_] := { Steerable -> Always }; -GetParameters[evolvedGFs_, evolvedGroups_] := +DefFn[ + GetParameters[evolvedGFs_List, evolvedGroups_List] := Join[Map[createBoundTypeParam[#,"skip"] &, evolvedGFs], Map[createBoundTypeParam[#,"none"] &, Map[unqualifiedGroupName,evolvedGroups]], @@ -157,7 +158,7 @@ GetParameters[evolvedGFs_, evolvedGroups_] := Map[createBoundLimitParam, Map[unqualifiedGroupName,evolvedGroups]], Map[createBoundScalarParam, evolvedGFs], - Map[createBoundScalarParam, Map[unqualifiedGroupName,evolvedGroups]]]; + Map[createBoundScalarParam, Map[unqualifiedGroupName,evolvedGroups]]]]; GetSources[evolvedGroups_, groups_, implementation_, thornName_] := -- cgit v1.2.3