Merge pull request #217 from dubek/lua-interop

[jackhill/mal.git] / ocaml / stepA_mal.ml

diff --git a/ocaml/stepA_mal.ml b/ocaml/stepA_mal.ml
index fc43eb6..c36e6c8 100644 (file)
--- a/ocaml/stepA_mal.ml
+++ b/ocaml/stepA_mal.ml
@@ -54,6 +54,7 @@ let rec eval_ast ast env =
     | _ -> ast
 and eval ast env =
   match macroexpand ast env with
+    | T.List { T.value = [] } -> ast
     | T.List { T.value = [(T.Symbol { T.value = "def!" }); key; expr] } ->
         let value = (eval expr env) in
           Env.set env key value; value