julia: Fix exception on literal empty list

Issue #190

diff --git a/julia/step3_env.jl b/julia/step3_env.jl
index c0bcde1..91f80ca 100755 (executable)
--- a/julia/step3_env.jl
+++ b/julia/step3_env.jl
@@ -26,6 +26,7 @@ end
 
 function EVAL(ast, env)
     if !isa(ast, Array) return eval_ast(ast, env) end
+    if isempty(ast) return ast end
 
     # apply
     if     :def! == ast[1]

diff --git a/julia/step4_if_fn_do.jl b/julia/step4_if_fn_do.jl
index 5f98d86..0e33713 100755 (executable)
--- a/julia/step4_if_fn_do.jl
+++ b/julia/step4_if_fn_do.jl
@@ -27,6 +27,7 @@ end
 
 function EVAL(ast, env)
     if !isa(ast, Array) return eval_ast(ast, env) end
+    if isempty(ast) return ast end
 
     # apply
     if     :def! == ast[1]

diff --git a/julia/step5_tco.jl b/julia/step5_tco.jl
index eeefb99..6869048 100755 (executable)
--- a/julia/step5_tco.jl
+++ b/julia/step5_tco.jl
@@ -30,6 +30,7 @@ function EVAL(ast, env)
   while true
     #println("EVAL: $(printer.pr_str(ast,true))")
     if !isa(ast, Array) return eval_ast(ast, env) end
+    if isempty(ast) return ast end
 
     # apply
     if     :def! == ast[1]

diff --git a/julia/step6_file.jl b/julia/step6_file.jl
index 7e0ce14..83246ff 100755 (executable)
--- a/julia/step6_file.jl
+++ b/julia/step6_file.jl
@@ -30,6 +30,7 @@ function EVAL(ast, env)
   while true
     #println("EVAL: $(printer.pr_str(ast,true))")
     if !isa(ast, Array) return eval_ast(ast, env) end
+    if isempty(ast) return ast end
 
     # apply
     if     :def! == ast[1]

diff --git a/julia/step7_quote.jl b/julia/step7_quote.jl
index 5c4cb7b..79dd652 100755 (executable)
--- a/julia/step7_quote.jl
+++ b/julia/step7_quote.jl
@@ -46,6 +46,7 @@ function EVAL(ast, env)
   while true
     #println("EVAL: $(printer.pr_str(ast,true))")
     if !isa(ast, Array) return eval_ast(ast, env) end
+    if isempty(ast) return ast end
 
     # apply
     if     :def! == ast[1]

diff --git a/julia/step8_macros.jl b/julia/step8_macros.jl
index 92117f3..e7b42c7 100755 (executable)
--- a/julia/step8_macros.jl
+++ b/julia/step8_macros.jl
@@ -32,6 +32,7 @@ end
 
 function ismacroCall(ast, env)
     return isa(ast, Array) &&
+           !isempty(ast) &&
            isa(ast[1], Symbol) &&
            env_find(env, ast[1]) != nothing &&
            isa(env_get(env, ast[1]), MalFunc) &&
@@ -66,6 +67,7 @@ function EVAL(ast, env)
     # apply
     ast = macroexpand(ast, env)
     if !isa(ast, Array) return eval_ast(ast, env) end
+    if isempty(ast) return ast end
 
     if     :def! == ast[1]
         return env_set(env, ast[2], EVAL(ast[3], env))

diff --git a/julia/step9_try.jl b/julia/step9_try.jl
index 5a37fa6..868069a 100755 (executable)
--- a/julia/step9_try.jl
+++ b/julia/step9_try.jl
@@ -32,6 +32,7 @@ end
 
 function ismacroCall(ast, env)
     return isa(ast, Array) &&
+           !isempty(ast) &&
            isa(ast[1], Symbol) &&
            env_find(env, ast[1]) != nothing &&
            isa(env_get(env, ast[1]), MalFunc) &&
@@ -66,6 +67,7 @@ function EVAL(ast, env)
     # apply
     ast = macroexpand(ast, env)
     if !isa(ast, Array) return eval_ast(ast, env) end
+    if isempty(ast) return ast end
 
     if     :def! == ast[1]
         return env_set(env, ast[2], EVAL(ast[3], env))

diff --git a/julia/stepA_mal.jl b/julia/stepA_mal.jl
index 3ca25bc..1f897cb 100755 (executable)
--- a/julia/stepA_mal.jl
+++ b/julia/stepA_mal.jl
@@ -32,6 +32,7 @@ end
 
 function ismacroCall(ast, env)
     return isa(ast, Array) &&
+           !isempty(ast) &&
            isa(ast[1], Symbol) &&
            env_find(env, ast[1]) != nothing &&
            isa(env_get(env, ast[1]), MalFunc) &&
@@ -66,6 +67,7 @@ function EVAL(ast, env)
     # apply
     ast = macroexpand(ast, env)
     if !isa(ast, Array) return eval_ast(ast, env) end
+    if isempty(ast) return ast end
 
     if     :def! == ast[1]
         return env_set(env, ast[2], EVAL(ast[3], env))