Merge branch 'master' of github.com:kanaka/mal

[jackhill/mal.git] / elisp / step2_eval.el

diff --git a/elisp/step2_eval.el b/elisp/step2_eval.el
index cf51b14..b5f0723 100644 (file)
--- a/elisp/step2_eval.el
+++ b/elisp/step2_eval.el
@@ -17,7 +17,7 @@
   (read-str input))
 
 (defun EVAL (ast env)
-  (if (mal-list-p ast)
+  (if (and (mal-list-p ast) (mal-value ast))
       (let* ((ast* (mal-value (eval-ast ast env)))
              (fn (car ast*))
              (args (cdr ast*)))