From 75ee863cc5b2d59478fa20e81da8ac6654dcdff7 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 24 Mar 2017 16:12:37 -0400
Subject: - Fixed some bugs in the common procedures.

---
 luxc/src/lux/compiler/js/proc/common.clj | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'luxc')

diff --git a/luxc/src/lux/compiler/js/proc/common.clj b/luxc/src/lux/compiler/js/proc/common.clj
index 907b6d512..cd67104f4 100644
--- a/luxc/src/lux/compiler/js/proc/common.clj
+++ b/luxc/src/lux/compiler/js/proc/common.clj
@@ -343,11 +343,11 @@
 (defn ^:private compile-io-exit [compile ?values special-args]
   (|do [:let [(&/$Cons ?code (&/$Nil)) ?values]
         =code (compile ?code)]
-    (return (str "(process && process.exit && process.exit(LuxRT$fromNumberI64(" =code ")))"))))
+    (return (str "(process && process.exit && process.exit(LuxRT$toNumberI64(" =code ")))"))))
 
 (defn ^:private compile-io-current-time [compile ?values special-args]
   (|do [:let [(&/$Nil) ?values]]
-    (return (str "LuxRT$toNumberI64(" "(new Date()).getTime()" ")"))))
+    (return (str "LuxRT$fromNumberI64(" "(new Date()).getTime()" ")"))))
 
 (defn ^:private compile-atom-new [compile ?values special-args]
   (|do [:let [(&/$Cons ?init (&/$Nil)) ?values]
@@ -377,7 +377,7 @@
 
 (defn ^:private compile-process-concurrency-level [compile ?values special-args]
   (|do [:let [(&/$Nil) ?values]]
-    (return (str "LuxRT$fromNumberI64(1)"))))
+    (return (str "LuxRT$ONE"))))
 
 (defn ^:private compile-process-future [compile ?values special-args]
   (|do [:let [(&/$Cons ?procedure (&/$Nil)) ?values]
-- 
cgit v1.2.3