All: move some fns to core. Major cleanup.

[jackhill/mal.git] / mal / step3_env.mal

diff --git a/mal/step3_env.mal b/mal/step3_env.mal
index a4f2c57..c812f17 100644 (file)
--- a/mal/step3_env.mal
+++ b/mal/step3_env.mal
@@ -60,11 +60,10 @@
 (def! rep (fn* [strng]
   (PRINT (EVAL (READ strng) repl-env))))
 
-(def! _ref (fn* [k v] (env-set repl-env k v)))
-(_ref "+" +)
-(_ref "-" -)
-(_ref "*" *)
-(_ref "/" /)
+(env-set repl-env "+" +)
+(env-set repl-env "-" -)
+(env-set repl-env "*" *)
+(env-set repl-env "/" /)
 
 (def! -main (fn* [] 
   (let* [line (readline "mal-user> ")]