@@ -95,14 +95,13 @@ jsImport (modul, how) =
9595 case how of
9696 As name -> assign name ("Elm." ++ modul ++ parens "elm")
9797 Importing vs ->
98− "\nvar _$ = Elm." ++ modul ++ parens "elm" ++ ";" ++
99− if null vs then "\nfor (var k in _$) {eval('var '+k+'=_$[\"'+k+'\"]')}"
100− else concatMap def vs
98+ "\nvar $ = Elm." ++ modul ++ parens "elm" ++ ";" ++
99+ if null vs then "\nfor (var k in $) {eval('var '+k+'=$[\"'+k+'\"]')}"
100+ else "\nvar " ++ intercalate ", " (map def vs) ++ ";"
101101 where
102− imprt asgn v = asgn v ("_$." ++ v)
102+ imprt v = assign' v ("$." ++ v)
103103 def (o:p) =
104− if isOp o then imprt globalAssign ("$op['" ++ o:p ++ "']")
105− else imprt assign (deprime (o:p))
104+ imprt (if isOp o then "$op['" ++ o:p ++ "']" else deprime (o:p))
106105
107106
108107stmtsToJS :: [Statement] -> String