@@ -71,7 +71,7 @@ reservedWords :: Set.Set Text
7171reservedWords =
7272 Set.fromList
7373 -- reserved by JavaScript
74− [ "null", "undefined", "Nan", "Infinity", "true", "false", "eval"
74+ [ "null", "undefined", "NaN", "Infinity", "true", "false", "eval"
7575 , "arguments", "int", "byte", "char", "goto", "long", "final", "float"
7676 , "short", "double", "native", "throws", "boolean", "abstract", "volatile"
7777 , "transient", "synchronized", "function", "break", "case", "catch"
@@ -84,7 +84,6 @@ reservedWords =
8484 -- reserved by Elm
8585 , "F2", "F3", "F4", "F5", "F6", "F7", "F8", "F9"
8686 , "A2", "A3", "A4", "A5", "A6", "A7", "A8", "A9"
87− , "ctor"
8887 ]
8988
9089
@@ -105,7 +104,7 @@ globalName (Var.Global home name) =
105104globalToName :: ModuleName.Canonical -> Text -> Text
106105globalToName (ModuleName.Canonical (Pkg.Name user project) moduleName) name =
107106 if ModuleName.isKernel moduleName then
108− kernelToName (ModuleName.getKernel moduleName) name
107+ "_" <> ModuleName.getKernel moduleName <> "_" <> name
109108
110109 else
111110 let
@@ -120,17 +119,3 @@ globalToName (ModuleName.Canonical (Pkg.Name user project) moduleName) name =
120119 <> "$" <> Text.replace "." "_" moduleName
121120 <> "$" <> revisedName
122121
123−
124−kernelToName :: Text -> Text -> Text
125−kernelToName home name =
126− if home == "Error" && name == "throw" then
127− "_Error_throw_prod"
128−
129− else if name == "toString" && home == "Debug" then
130− "_Debug_toString_prod"
131−
132− else if name == "log" && home == "Debug" then
133− "_Debug_log_prod"
134−
135− else
136− "_" <> home <> "_" <> name