fsharp: step8: Implemented macros. Deferred cond because it requires exceptions

[jackhill/mal.git] / fsharp / step6_file.fs

diff --git a/fsharp/step6_file.fs b/fsharp/step6_file.fs
index 821a19d..d9496d3 100644 (file)
--- a/fsharp/step6_file.fs
+++ b/fsharp/step6_file.fs
@@ -85,11 +85,11 @@ module REPL
         | List(_) as node ->
             let resolved = node |> eval_ast env
             match resolved with
-            | List(Func(_, f, _, _, [])::rest) -> f rest
+            | List(BuiltInFunc(_, f)::rest) -> f rest
             | List(Func(_, _, body, binds, outer)::rest) ->
                 let inner = Env.makeNew outer binds rest
                 body |> eval inner
-            | _ -> raise <| Error.errExpectedX "function"
+            | _ -> raise <| Error.errExpectedX "func"
         | node -> node |> eval_ast env
 
     let READ input =