From 5f874796c9c98dfaff03540f6fb0d6cfdb1d612b Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Wed, 13 Mar 2019 18:13:59 -0400 Subject: Temporarily disabled JS-code nesting since it's only useful for debugging. --- stdlib/source/lux/host/js.lux | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) (limited to 'stdlib/source') diff --git a/stdlib/source/lux/host/js.lux b/stdlib/source/lux/host/js.lux index ffc45fd7d..e16c99c38 100644 --- a/stdlib/source/lux/host/js.lux +++ b/stdlib/source/lux/host/js.lux @@ -167,17 +167,18 @@ text.new-line (:representation post)))) - (def: nest - (-> Text Text) - (text.replace-all text.new-line (format text.new-line text.tab))) + ## (def: nest + ## (-> Text Text) + ## (text.replace-all text.new-line (format text.new-line text.tab))) (def: block (-> Statement Text) - (|>> :representation - (format text.new-line) - ..nest - (text.enclose ["{" - (format text.new-line "}")]))) + (let [close (format text.new-line "}")] + (|>> :representation + (format text.new-line) + ## ..nest + (text.enclose ["{" + close])))) (def: #export (function name inputs body) (-> Var (List Var) Statement Computation) -- cgit v1.2.3