17 lines
401 B
OCaml
17 lines
401 B
OCaml
open Lisp.Ast;;
|
|
open Printf;;
|
|
open Lisp;;
|
|
open Eval;;
|
|
open Read;;
|
|
let rec repl c =
|
|
let () = printf ">>> "; Out_channel.flush Out_channel.stdout; in
|
|
match In_channel.input_line c with
|
|
| None -> ()
|
|
| Some l ->
|
|
let vals = (parse_str l) in
|
|
(* dbg_print_all vals; *)
|
|
dbg_print_all (eval_all vals);
|
|
Out_channel.flush Out_channel.stdout;
|
|
repl c;;
|
|
|
|
let _ = repl (In_channel.stdin) |