From 022e4f0b514c6f931cd9d0c4e44622dfa9973e24 Mon Sep 17 00:00:00 2001 From: Nicolas Boulenguez Date: Wed, 11 Aug 2021 13:30:58 +0200 Subject: [PATCH] ocaml: allow keyword argument for keyword core function --- impls/ocaml/core.ml | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/impls/ocaml/core.ml b/impls/ocaml/core.ml index ddc62c1c..da2041e9 100644 --- a/impls/ocaml/core.ml +++ b/impls/ocaml/core.ml @@ -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?")