clojure: Fix exception on literal empty list

Issue #190

clojure/src/step3_env.clj

@@ -35,6 +35,9 @@
           ;; indented to match later steps
           (let [[a0 a1 a2 a3] ast]
             (condp = a0
+              nil
+              ast
+
               'def!
               (env/env-set env a1 (EVAL a2 env))
 

clojure/src/step4_if_fn_do.clj

@@ -36,6 +36,9 @@
           ;; indented to match later steps
           (let [[a0 a1 a2 a3] ast]
             (condp = a0
+              nil
+              ast
+
               'def!
               (env/env-set env a1 (EVAL a2 env))
 

clojure/src/step5_tco.clj

@@ -37,6 +37,9 @@
           ;; indented to match later steps
           (let [[a0 a1 a2 a3] ast]
             (condp = a0
+              nil
+              ast
+
               'def!
               (env/env-set env a1 (EVAL a2 env))
 

clojure/src/step6_file.clj

@@ -37,6 +37,9 @@
           ;; indented to match later steps
           (let [[a0 a1 a2 a3] ast]
             (condp = a0
+              nil
+              ast
+
               'def!
               (env/env-set env a1 (EVAL a2 env))
 

clojure/src/step7_quote.clj

@@ -54,6 +54,9 @@
           ;; indented to match later steps
           (let [[a0 a1 a2 a3] ast]
             (condp = a0
+              nil
+              ast
+
               'def!
               (env/env-set env a1 (EVAL a2 env))
 

clojure/src/step8_macros.clj

@@ -71,6 +71,9 @@
 
           (let [[a0 a1 a2 a3] ast]
             (condp = a0
+              nil
+              ast
+
               'def!
               (env/env-set env a1 (EVAL a2 env))
 

clojure/src/step9_try.clj

@@ -71,6 +71,9 @@
 
           (let [[a0 a1 a2 a3] ast]
             (condp = a0
+              nil
+              ast
+
               'def!
               (env/env-set env a1 (EVAL a2 env))
 

clojure/src/stepA_mal.clj

@@ -72,6 +72,9 @@
 
           (let [[a0 a1 a2 a3] ast]
             (condp = a0
+              nil
+              ast
+
               'def!
               (env/env-set env a1 (EVAL a2 env))