From cabb410d67edcdcb3531a990518ca67de4507f07 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 24 Feb 2018 01:03:03 -0400
Subject: - Fixed nat division and remainder.

---
 new-luxc/source/luxc/lang/host/js.lux | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'new-luxc/source/luxc/lang/host')

diff --git a/new-luxc/source/luxc/lang/host/js.lux b/new-luxc/source/luxc/lang/host/js.lux
index b4c5acd58..7ef948abb 100644
--- a/new-luxc/source/luxc/lang/host/js.lux
+++ b/new-luxc/source/luxc/lang/host/js.lux
@@ -47,7 +47,7 @@
   (list/fold (.function [[test then!] next!]
                (if! test then! next!))
              else!
-             clauses))
+             (list.reverse clauses)))
 
 (def: #export (block! statements)
   (-> (List Statement) Statement)
@@ -89,7 +89,7 @@
      (-> Expression Expression Expression)
      (format "(" subject " " <op> " " param ")"))]
 
-  [=       "="]
+  [=       "==="]
   [<       "<"]
   [<=      "<="]
   [>       ">"]
@@ -99,6 +99,13 @@
   [*       "*"]
   [/       "/"]
   [%       "%"]
+  )
+
+(do-template [<name> <op>]
+  [(def: #export (<name> param subject)
+     (-> Expression Expression Expression)
+     (format "(" param " " <op> " " subject ")"))]
+
   [or      "||"]
   [and     "&&"]
   [bit-or  "|"]
-- 
cgit v1.2.3