aboutsummaryrefslogtreecommitdiff
path: root/luxc
diff options
context:
space:
mode:
authorEduardo Julian2017-03-24 16:12:37 -0400
committerEduardo Julian2017-03-24 16:12:37 -0400
commit75ee863cc5b2d59478fa20e81da8ac6654dcdff7 (patch)
treee4b764062dc3d20b4a6f3db9387660ca93fdb976 /luxc
parentbc17742ca0cc3483353e2c76e25496c1b105d8ed (diff)
- Fixed some bugs in the common procedures.
Diffstat (limited to '')
-rw-r--r--luxc/src/lux/compiler/js/proc/common.clj6
1 files changed, 3 insertions, 3 deletions
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]