From 0bd93d82eb7a50b9ce8be42800c388e87e6ca9bf Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 23 Feb 2018 23:10:28 -0400
Subject: - Added a code-generation utility module for JS.

---
 new-luxc/source/luxc/lang/translation/js/loop.jvm.lux | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation/js/loop.jvm.lux b/new-luxc/source/luxc/lang/translation/js/loop.jvm.lux
index 9315508e8..657982556 100644
--- a/new-luxc/source/luxc/lang/translation/js/loop.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/js/loop.jvm.lux
@@ -6,13 +6,14 @@
              (coll [list "list/" Functor<List>]))
        [macro])
   (luxc [lang]
-        (lang ["ls" synthesis]))
+        (lang ["ls" synthesis]
+              (host [js #+ JS Expression Statement])))
   [//]
   (// [".T" reference]))
 
 (def: #export (translate-loop translate offset initsS+ bodyS)
-  (-> (-> ls.Synthesis (Meta //.Expression)) Nat (List ls.Synthesis) ls.Synthesis
-      (Meta //.Expression))
+  (-> (-> ls.Synthesis (Meta Expression)) Nat (List ls.Synthesis) ls.Synthesis
+      (Meta Expression))
   (do macro.Monad<Meta>
     [loop-name (:: @ map (|>> %code lang.normalize-name)
                    (macro.gensym "loop"))
@@ -26,8 +27,8 @@
                   "})(" (text.join-with "," initsJS+) ")"))))
 
 (def: #export (translate-recur translate argsS+)
-  (-> (-> ls.Synthesis (Meta //.Expression)) (List ls.Synthesis)
-      (Meta //.Expression))
+  (-> (-> ls.Synthesis (Meta Expression)) (List ls.Synthesis)
+      (Meta Expression))
   (do macro.Monad<Meta>
     [[loop-name offset] //.anchor
      argsJS+ (monad.map @ translate argsS+)]
-- 
cgit v1.2.3