fix namespace for getenv and nanoTime and sleep

Author: erkkikeranen

src/clojure/core.clj

@@ -40,9 +40,9 @@
   (- x 1))
 
 (defmacro time [expr]
-  (list (quote let) [(quote start) (quote (System_nanoTime)) (quote ret) expr]
+  (list (quote let) [(quote start) (quote (System/nanoTime)) (quote ret) expr]
         (quote (do
-        (println (str "Elapsed time: " (_slash_ (- (System_nanoTime) start) 1000000.0) " msecs"))
+        (println (str "Elapsed time: " (_slash_ (- (System/nanoTime) start) 1000000.0) " msecs"))
         ret))))
 
 (defn slurp [f & opts]

src/environment.rs

@@ -244,15 +244,24 @@ impl Environment {
         environment.insert(Symbol::intern("defmacro"), defmacro_macro.to_rc_value());
         environment.insert(Symbol::intern("eval"), eval_fn.to_rc_value());
 
-        // Thread namespace TODO / instead of _
-        environment.insert(
-            Symbol::intern("Thread_sleep"),
-            thread_sleep_fn.to_rc_value(),
-        );
-
-        environment.insert(Symbol::intern("System_nanoTime"), nanotime_fn.to_rc_value());
-
-        environment.insert(Symbol::intern("System_getenv"), get_env_fn.to_rc_value());
+        // Thread namespace
+		environment.insert_into_namespace(
+			&Symbol::intern("Thread"),
+			Symbol::intern("sleep"),
+			thread_sleep_fn.to_rc_value()
+		);
+
+		// System namespace
+		environment.insert_into_namespace(
+			&Symbol::intern("System"),
+			Symbol::intern("nanoTime"),
+			nanotime_fn.to_rc_value()
+		);
+		environment.insert_into_namespace(
+			&Symbol::intern("System"),
+			Symbol::intern("getenv"),
+			get_env_fn.to_rc_value()
+		);
 
         // core.clj wraps calls to the rust implementations
         // @TODO add this to clojure.rs.core namespace as clojure.rs.core/slurp