diff options
Diffstat (limited to 'stdlib/source/library/lux/target/js.lux')
-rw-r--r-- | stdlib/source/library/lux/target/js.lux | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/stdlib/source/library/lux/target/js.lux b/stdlib/source/library/lux/target/js.lux index b9307bf14..88ad9ff5e 100644 --- a/stdlib/source/library/lux/target/js.lux +++ b/stdlib/source/library/lux/target/js.lux @@ -23,9 +23,14 @@ (def: element (text.enclosed ["[" "]"])) +... Added the carriage return for better Windows compatibility. +(def: \n+ + Text + (format text.carriage_return text.new_line)) + (def: nested (-> Text Text) - (|>> (format text.new_line) + (|>> (format \n+) (text.replaced text.new_line (format text.new_line text.tab)))) (abstract: .public (Code brand) @@ -165,12 +170,12 @@ (def: .public (then pre post) (-> Statement Statement Statement) (:abstraction (format (:representation pre) - text.new_line + \n+ (:representation post)))) (def: block (-> Statement Text) - (let [close (format text.new_line "}")] + (let [close (format \n+ "}")] (|>> :representation ..nested (text.enclosed ["{" @@ -401,10 +406,10 @@ (list#each (.function (_ [when then]) (format (|> when (list#each (|>> :representation (text.enclosed ["case " ":"]))) - (text.interposed text.new_line)) + (text.interposed \n+)) (..nested (:representation then))))) - (text.interposed text.new_line)) - text.new_line + (text.interposed \n+)) + \n+ (case default {.#Some default} (format "default:" |