aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIan Hinder <ian.hinder@aei.mpg.de>2013-09-09 10:57:51 +0200
committerIan Hinder <ian.hinder@aei.mpg.de>2013-09-09 10:57:51 +0200
commit4e91cee9ea2c4b5af0daa3aa1f4deb9aba8d3cbd (patch)
treed48b046232cb69037f29d9d2a447c39db2090ee7
parenta0157b9a5ac70665056b6b0be52f5a8f93d8334c (diff)
Thorn.m: Remove duplicated Quote function
-rw-r--r--Tools/CodeGen/Thorn.m4
1 files changed, 0 insertions, 4 deletions
diff --git a/Tools/CodeGen/Thorn.m b/Tools/CodeGen/Thorn.m
index 94a1c29..229db60 100644
--- a/Tools/CodeGen/Thorn.m
+++ b/Tools/CodeGen/Thorn.m
@@ -34,7 +34,6 @@ CreateMakefile::usage = "Create the content of the Cactus make.code.defn file.";
CreateConfiguration::usage = "Create the content of the configuration.ccl file.";
CreateInterface::usage = "Create the content of the interface.ccl file.";
CreateParam::usage = "Create the content of the param.ccl file.";
-Quote::usage = ""; (* This should not be in this package *)
CreateThorn::usage = "Create a general Cactus thorn from
a thorn specification structure";
CreateSymmetriesRegistrationSource::usage = "";
@@ -89,9 +88,6 @@ CreateMakefile[sourceFiles_] :=
Description -> "", Visibility -> "private",
AllowedValues -> {...}} *)
-(* Return a CodeGen block which represents the quoted value of x *)
-Quote[x_] := {"\"", x, "\""};
-
(* To be used for parameters; will quote it if it is a keyword *)
renderValue[type_, value_] :=
If[type == "KEYWORD",