teyalem/ce
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add --debug flag

Browse source
This commit is contained in:
백현웅 2022-02-11 15:05:21 +09:00
parent 138d12e899
commit fcf2c0388d
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
main.ml
View file

@ -62,7 +62,12 @@ let rec repl env : unit =
| Reset_line -> printf "\n"; repl env | Reset_line -> printf "\n"; repl env
| e -> print_error e; repl env | e -> print_error e; repl env
let speclist = [
"--debug", Arg.Set debug, "print debug infos";
]
let () = let () =
Arg.parse speclist (fun _ -> ()) "";
init_repl (); init_repl ();
printf "Configurable Evaluator %s\n" version; (* banner *) printf "Configurable Evaluator %s\n" version; (* banner *)
repl g repl g