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/core.ml | |
| parent | de04357cd5f2954e2d682abb97ca2b3b90ea75d1 (diff) | |
| download | mal-f2f11f6279e1b242ba75136cd037fabdd176118a.tar.gz mal-f2f11f6279e1b242ba75136cd037fabdd176118a.zip | |
Ocaml: rename Types.MalList to Types.List
Diffstat (limited to 'ocaml/core.ml')
| -rw-r--r-- | ocaml/core.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ocaml/core.ml b/ocaml/core.ml index c11c9f9..db3424a 100644 --- a/ocaml/core.ml +++ b/ocaml/core.ml @@ -18,13 +18,13 @@ let init env = begin Env.set env (Types.Symbol ">") (num_fun mk_bool ( > )); Env.set env (Types.Symbol ">=") (num_fun mk_bool ( >= )); - Env.set env (Types.Symbol "list") (Types.Fn (function xs -> Types.MalList xs)); + Env.set env (Types.Symbol "list") (Types.Fn (function xs -> Types.List xs)); Env.set env (Types.Symbol "list?") - (Types.Fn (function [Types.MalList _] -> Types.Bool true | _ -> Types.Bool false)); + (Types.Fn (function [Types.List _] -> Types.Bool true | _ -> Types.Bool false)); Env.set env (Types.Symbol "empty?") - (Types.Fn (function [Types.MalList []] -> Types.Bool true | _ -> Types.Bool false)); + (Types.Fn (function [Types.List []] -> Types.Bool true | _ -> Types.Bool false)); Env.set env (Types.Symbol "count") - (Types.Fn (function [Types.MalList xs] -> Types.Int (List.length xs) | _ -> Types.Int 0)); + (Types.Fn (function [Types.List xs] -> Types.Int (List.length xs) | _ -> Types.Int 0)); Env.set env (Types.Symbol "=") (Types.Fn (function [a; b] -> Types.Bool (a = b) | _ -> Types.Bool false)); |