Fix issue with imported reserved names from #214

2013-09-22 17:40:10 -04:00 · 2013-09-22 17:40:10 -04:00 · 017f96b522
commit 017f96b522
parent 46b988b34f
1 changed files with 1 additions and 1 deletions
--- a/compiler/Generate/JavaScript.hs
+++ b/compiler/Generate/JavaScript.hs
@ -17,7 +17,7 @@ import Language.ECMAScript3.PrettyPrint
 import Parse.Helpers (jsReserveds)

 makeSafe :: String -> String
-makeSafe = dereserve . deprime
+makeSafe = List.intercalate "." . map dereserve . split . deprime
  where
    deprime = map (\c -> if c == '\'' then '$' else c)
    dereserve x = case Set.member x jsReserveds of