From 12dcb6e964e0c54f4001413bc62b8bcb526fa9c4 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 11 Feb 2017 19:58:26 -0400
Subject: - 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.

---
 stdlib/source/lux.lux | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

(limited to 'stdlib')

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)
-- 
cgit v1.2.3