diff options
| author | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-11 14:07:35 +0200 |
|---|---|---|
| committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-11 14:07:35 +0200 |
| commit | f6b7863374906f25bc4bbb2f54fcef2598bbd027 (patch) | |
| tree | 8fb6b793bd621929f6090394be6daf1934ff5aa6 | |
| parent | 9b459add6db98620df418ef12d61c932cec9bf05 (diff) | |
CactusBoundary.m: Add type checking to GetParameters
| -rw-r--r-- | Tools/CodeGen/CactusBoundary.m | 5 |
1 files 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_] := |