kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-07-15 01:20:29 +03:00
Code Issues Projects Releases Wiki Activity

ocaml: allow keyword argument for keyword core function

Browse Source
This commit is contained in:
Nicolas Boulenguez 2021-08-11 13:30:58 +02:00 committed by Joel Martin
parent e1b778481c
commit 022e4f0b51
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
impls/ocaml/core.ml
View File

@ -152,7 +152,10 @@ let init env = begin
Env.set env (Types.symbol "symbol?")
(Types.fn (function [T.Symbol _] -> T.Bool true | _ -> T.Bool false));
Env.set env (Types.symbol "keyword")
(Types.fn (function [T.String x] -> T.Keyword x | _ -> T.Nil));
(Types.fn (function
| [T.String x] -> T.Keyword x
| [T.Keyword x] -> T.Keyword x
| _ -> T.Nil));
Env.set env (Types.symbol "keyword?")
(Types.fn (function [T.Keyword _] -> T.Bool true | _ -> T.Bool false));
Env.set env (Types.symbol "number?")