diff options
| author | Chouser <chouser@n01se.net> | 2015-01-23 22:54:15 -0500 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2015-01-30 12:54:42 -0500 |
| commit | f2f11f6279e1b242ba75136cd037fabdd176118a (patch) | |
| tree | 6c00050c0fd66af90a8da76daa9df7dacb82d631 /ocaml/step2_eval.ml | |
| parent | de04357cd5f2954e2d682abb97ca2b3b90ea75d1 (diff) | |
| download | mal-f2f11f6279e1b242ba75136cd037fabdd176118a.tar.gz mal-f2f11f6279e1b242ba75136cd037fabdd176118a.zip | |
Ocaml: rename Types.MalList to Types.List
Diffstat (limited to 'ocaml/step2_eval.ml')
| -rw-r--r-- | ocaml/step2_eval.ml | 4 |
1 files changed, 2 insertions, 2 deletions
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 |