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

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

diff --git a/elisp/step4_if_fn_do.el b/elisp/step4_if_fn_do.el
index 55b51c0..4eb141b 100644 (file)
--- a/elisp/step4_if_fn_do.el
+++ b/elisp/step4_if_fn_do.el
@@ -22,7 +22,7 @@
   (read-str input))
 
 (defun EVAL (ast env)
-  (if (mal-list-p ast)
+  (if (and (mal-list-p ast) (mal-value ast))
       (let* ((a (mal-value ast))
              (a0 (car a))
              (a0* (mal-value a0))