diff options
author | Eduardo Julian | 2017-02-11 19:58:26 -0400 |
---|---|---|
committer | Eduardo Julian | 2017-02-11 19:58:26 -0400 |
commit | 12dcb6e964e0c54f4001413bc62b8bcb526fa9c4 (patch) | |
tree | a48ddea9c03715eacf5d52427e62d3a383ced50e /stdlib/source | |
parent | 66ceed37b71921e14cae8a091df7738d9e587c2d (diff) |
- Now doing common array analysis/compilation.
- Now doing common io/log! analysis/compilation.
- Now doing common char/to-text analysis/compilation.
- Expanded compilation of procedures in JS.
- Expanded LuxRT in JS.
- Fixed some bugs.
Diffstat (limited to 'stdlib/source')
-rw-r--r-- | stdlib/source/lux.lux | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux index 1c74cac80..06c0fd2fd 100644 --- a/stdlib/source/lux.lux +++ b/stdlib/source/lux.lux @@ -2099,7 +2099,7 @@ #"\f" "\\f" #"\"" "\\\"" #"\\" "\\\\" - _ (_lux_proc ["jvm" "invokevirtual:java.lang.Object:toString:"] [x]))] + _ (_lux_proc ["char" "to-text"] [x]))] ($_ Text/append "#\"" as-text "\""))) (macro:' #export (do-template tokens) @@ -2241,6 +2241,13 @@ (-> Bool Bool) (if x false true)) +(def:''' #export (log! message) + (list [["lux" "doc"] (#TextA "Logs message to standard output. + + Useful for debugging.")]) + (-> Text Unit) + (_lux_proc ["io" "log!"] [message])) + (def:''' (find-macro' modules current-module module name) #Nil (-> ($' List (& Text Module)) @@ -2998,14 +3005,6 @@ (#;Some (#;Right [])) (list (' #hidden)))) -(def:''' #export (log! message) - (list [["lux" "doc"] (#TextA "Logs message to standard output. - - Useful for debugging.")]) - (-> Text Unit) - (_lux_proc ["jvm" "invokevirtual:java.io.PrintStream:println:java.lang.String"] - [(_lux_proc ["jvm" "getstatic:java.lang.System:out"] []) message])) - (macro:' #export (def: tokens) (list [["lux" "doc"] (#TextA "## Defines global constants/functions. (def: (rejoin-pair pair) |