From d01f75d220539efd7d58ee9534d3ef3a7bbc3cdc Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 17 Feb 2018 11:40:12 -0400
Subject: - Added tests for normal JS (non-procedure) behavior. - Fixed a few
 bugs.

---
 new-luxc/source/luxc/lang/translation/js.lux | 22 ++++++++++------------
 1 file changed, 10 insertions(+), 12 deletions(-)

(limited to 'new-luxc/source/luxc/lang/translation/js.lux')

diff --git a/new-luxc/source/luxc/lang/translation/js.lux b/new-luxc/source/luxc/lang/translation/js.lux
index 9b1b2b503..680439355 100644
--- a/new-luxc/source/luxc/lang/translation/js.lux
+++ b/new-luxc/source/luxc/lang/translation/js.lux
@@ -35,8 +35,10 @@
 (host.import java/lang/Long
   (intValue [] Integer))
 
-(host.import java/lang/AbstractStringBuilder
-  (append [String] AbstractStringBuilder))
+(host.import java/lang/CharSequence)
+
+(host.import java/lang/Appendable
+  (append [CharSequence] Appendable))
 
 (host.import java/lang/StringBuilder
   (new [])
@@ -80,8 +82,8 @@
 
 (def: #export module-js-name Text "module.js")
 
-(def: #export (init-module-buffer _)
-  (-> Top (Meta Unit))
+(def: #export init-module-buffer
+  (Meta Unit)
   (function [compiler]
     (#e.Success [(update@ #.host
                           (|>> (:! Host)
@@ -297,12 +299,6 @@
                           (:! Object)))
     ))
 
-## (def: (wrap-lux-object object)
-##   (-> Top JSObject)
-##   (if (host.instance? JSObject object)
-##     (lux-obj object)
-##     obj))
-
 (def: #export unit Text "\u0000")
 
 (def: (module-name module)
@@ -319,7 +315,8 @@
   (-> JS (Meta Unit))
   (do macro.Monad<Meta>
     [module-buffer module-buffer
-     #let [_ (AbstractStringBuilder::append [code] module-buffer)]]
+     #let [_ (Appendable::append [(:! CharSequence code)]
+                                 module-buffer)]]
     (execute code)))
 
 (def: #export (save-definition name code)
@@ -333,7 +330,8 @@
      module-buffer module-buffer
      program-buffer program-buffer
      #let [module-code (StringBuilder::toString [] module-buffer)
-           _ (AbstractStringBuilder::append [(format module-code "\n")] program-buffer)]]
+           _ (Appendable::append [(:! CharSequence (format module-code "\n"))]
+                                 program-buffer)]]
     (wrap (ioC.write target
                      (format module "/" module-js-name)
                      (|> module-code
-- 
cgit v1.2.3