ocaml: Fix exception on literal empty list

Issue kanaka#190
ragne · Mar 28, 2016 · 127b36c · 127b36c
1 parent 52cee85
commit 127b36c
Show file tree

Hide file tree

Showing 7 changed files with 7 additions and 0 deletions.
diff --git a/ocaml/step3_env.ml b/ocaml/step3_env.ml
@@ -33,6 +33,7 @@ let rec eval_ast ast env =
     | _ -> ast
 and eval ast env =
   match ast 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

diff --git a/ocaml/step4_if_fn_do.ml b/ocaml/step4_if_fn_do.ml
@@ -21,6 +21,7 @@ let rec eval_ast ast env =
     | _ -> ast
 and eval ast env =
   match ast 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

diff --git a/ocaml/step6_file.ml b/ocaml/step6_file.ml
@@ -21,6 +21,7 @@ let rec eval_ast ast env =
     | _ -> ast
 and eval ast env =
   match ast 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

diff --git a/ocaml/step7_quote.ml b/ocaml/step7_quote.ml
@@ -33,6 +33,7 @@ let rec eval_ast ast env =
     | _ -> ast
 and eval ast env =
   match ast 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

diff --git a/ocaml/step8_macros.ml b/ocaml/step8_macros.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

diff --git a/ocaml/step9_try.ml b/ocaml/step9_try.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

diff --git 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