aboutsummaryrefslogtreecommitdiff
path: root/luxc/src/lux/compiler/js/proc/common.clj
diff options
context:
space:
mode:
authorEduardo Julian2017-02-25 19:57:30 -0400
committerEduardo Julian2017-02-25 19:57:30 -0400
commitcbeafbafc0ab02d8c8335ccc106a90545d562985 (patch)
tree6af4fca5a18f5c85c4d9f097ee0cf37ac5629fc8 /luxc/src/lux/compiler/js/proc/common.clj
parent8ff8934813562f28f79cc08014947eb282256e6a (diff)
- Exiting the program and getting the current time (in milliseconds) is now done through procedures.
Diffstat (limited to '')
-rw-r--r--luxc/src/lux/compiler/js/proc/common.clj8
1 files changed, 4 insertions, 4 deletions
diff --git a/luxc/src/lux/compiler/js/proc/common.clj b/luxc/src/lux/compiler/js/proc/common.clj
index 11fb9fd95..284139248 100644
--- a/luxc/src/lux/compiler/js/proc/common.clj
+++ b/luxc/src/lux/compiler/js/proc/common.clj
@@ -402,12 +402,12 @@
")")
"}"))))
-(defn ^:private compile-lux-log [compile ?values special-args]
+(defn ^:private compile-io-log [compile ?values special-args]
(|do [:let [(&/$Cons ?message (&/$Nil)) ?values]
=message (compile ?message)]
(return (str "LuxRT.log(" =message ")"))))
-(defn ^:private compile-lux-error [compile ?values special-args]
+(defn ^:private compile-io-error [compile ?values special-args]
(|do [:let [(&/$Cons ?message (&/$Nil)) ?values]
=message (compile ?message)]
(return (str "LuxRT.error(" =message ")"))))
@@ -420,8 +420,8 @@
"io"
(case proc-name
- "log" (compile-lux-log compile ?values special-args)
- "error" (compile-lux-error compile ?values special-args))
+ "log" (compile-io-log compile ?values special-args)
+ "error" (compile-io-error compile ?values special-args))
"text"
(case proc-name