diff options
author | Eduardo Julian | 2017-02-25 19:57:30 -0400 |
---|---|---|
committer | Eduardo Julian | 2017-02-25 19:57:30 -0400 |
commit | cbeafbafc0ab02d8c8335ccc106a90545d562985 (patch) | |
tree | 6af4fca5a18f5c85c4d9f097ee0cf37ac5629fc8 /luxc/src/lux/compiler/js/proc/common.clj | |
parent | 8ff8934813562f28f79cc08014947eb282256e6a (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.clj | 8 |
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 |