From 65a2fffd31ce667c8f2c1ec765971de9f055d7b2 Mon Sep 17 00:00:00 2001 From: Dov Murik Date: Wed, 11 May 2016 15:48:21 -0400 Subject: [PATCH] ocaml: Remove debug prints in step6 & step7 --- ocaml/step6_file.ml | 3 +-- ocaml/step7_quote.ml | 3 +-- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/ocaml/step6_file.ml b/ocaml/step6_file.ml index 41b3a052c9..07df7c4fe1 100644 --- 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 index 23eaa740fc..e855133ec5 100644 --- 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