Fix (keyword :k) on erlang and fsharp

[jackhill/mal.git] / impls / fsharp / core.fs

diff --git a/impls/fsharp/core.fs b/impls/fsharp/core.fs
index 2ab21a7..71a0183 100644 (file)
--- a/impls/fsharp/core.fs
+++ b/impls/fsharp/core.fs
@@ -157,13 +157,17 @@ module Core
     let isMap = isPattern (function Map(_, _) -> true | _ -> false)
     let isAtom = isPattern (function Atom(_, _) -> true | _ -> false)
 
-    let fromString f = function
-        | [String(str)] -> f str
+    let symbol = function
+        | [String(s)] -> Symbol s
+        | [_] -> raise <| Error.argMismatch ()
+        | _ -> raise <| Error.wrongArity ()
+
+    let keyword = function
+        | [String(s)] -> Keyword s
+        | [Keyword(_) as k] -> k
         | [_] -> raise <| Error.argMismatch ()
         | _ -> raise <| Error.wrongArity ()
 
-    let symbol = fromString (fun s -> Symbol(s))
-    let keyword = fromString (fun s -> Keyword(s))
     let vector lst =  lst |> Array.ofList |> Node.ofArray
 
     let rec getPairs lst =