ocaml: Remove debug prints in step6 & step7

ragne · May 11, 2016 · 65a2fff · 65a2fff
1 parent d3c401c
commit 65a2fff
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/ocaml/step6_file.ml b/ocaml/step6_file.ml
@@ -76,8 +76,7 @@ let rec main =
                          else []));
     Env.set repl_env (Types.symbol "eval")
             (Types.fn (function [ast] -> eval ast repl_env | _ -> T.Nil));
-    let code = "(def! load-file (fn* (f) (eval (read-string (str \"(do \" (slurp f) \")\")))))"
-    in print_endline code; ignore (rep code repl_env);
+    ignore (rep "(def! load-file (fn* (f) (eval (read-string (str \"(do \" (slurp f) \")\")))))" repl_env);
     ignore (rep "(def! not (fn* (a) (if a false true)))" repl_env);
 
     if Array.length Sys.argv > 1 then

diff --git a/ocaml/step7_quote.ml b/ocaml/step7_quote.ml
@@ -91,8 +91,7 @@ let rec main =
                          else []));
     Env.set repl_env (Types.symbol "eval")
             (Types.fn (function [ast] -> eval ast repl_env | _ -> T.Nil));
-    let code = "(def! load-file (fn* (f) (eval (read-string (str \"(do \" (slurp f) \")\")))))"
-    in ignore (rep code repl_env);
+    ignore (rep "(def! load-file (fn* (f) (eval (read-string (str \"(do \" (slurp f) \")\")))))" repl_env);
     ignore (rep "(def! not (fn* (a) (if a false true)))" repl_env);
 
     if Array.length Sys.argv > 1 then