@@ -57,14 +57,13 @@ internalImports name =
57 , include "_L" "N.List"
57 , include "_L" "N.List"
58 , include "_E" "N.Error"
58 , include "_E" "N.Error"
59 , include "_J" "N.JavaScript"
59 , include "_J" "N.JavaScript"
60− , varDecl "_str" (obj "_J.toString")
61 , varDecl "$moduleName" (string name)
60 , varDecl "$moduleName" (string name)
64literal lit =
63literal lit =
65 case lit of
64 case lit of
66 Chr c -> string [c]
65 Chr c -> string [c]
67− Str s -> ref "_str" <| string s
66+ Str s -> string s
68 IntNum n -> IntLit () n
67 IntNum n -> IntLit () n
69 FloatNum n -> NumLit () n
68 FloatNum n -> NumLit () n
70 Boolean b -> BoolLit () b
69 Boolean b -> BoolLit () b