From f2f11f6279e1b242ba75136cd037fabdd176118a Mon Sep 17 00:00:00 2001 From: Chouser Date: Fri, 23 Jan 2015 22:54:15 -0500 Subject: Ocaml: rename Types.MalList to Types.List --- ocaml/step2_eval.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'ocaml/step2_eval.ml') diff --git a/ocaml/step2_eval.ml b/ocaml/step2_eval.ml index af8667c..d5ec9a3 100644 --- a/ocaml/step2_eval.ml +++ b/ocaml/step2_eval.ml @@ -23,12 +23,12 @@ let rec eval_ast ast env = | Types.Symbol s -> (try Env.find s !env with Not_found -> raise (Invalid_argument ("Symbol '" ^ s ^ "' not found"))) - | Types.MalList xs -> Types.MalList (List.map (fun x -> eval x env) xs) + | Types.List xs -> Types.List (List.map (fun x -> eval x env) xs) | _ -> ast and eval ast env = let result = eval_ast ast env in match result with - | Types.MalList ((Types.Fn f) :: args) -> (f args) + | Types.List ((Types.Fn f) :: args) -> (f args) | _ -> result let read str = Reader.read_str str -- cgit v1.2.3