From f98e3ea939af17dab605d3c45c5f43c96a8abc6d Mon Sep 17 00:00:00 2001 From: Dov Murik Date: Fri, 29 Jan 2016 21:36:32 -0500 Subject: [PATCH] julia: Pass function arguments as a mal list --- julia/step4_if_fn_do.jl | 2 +- julia/step5_tco.jl | 2 +- julia/step6_file.jl | 2 +- julia/step7_quote.jl | 2 +- julia/step8_macros.jl | 2 +- julia/step9_try.jl | 2 +- julia/stepA_mal.jl | 2 +- 7 files changed, 7 insertions(+), 7 deletions(-) diff --git a/julia/step4_if_fn_do.jl b/julia/step4_if_fn_do.jl index 6af7d06f..5f98d864 100755 --- a/julia/step4_if_fn_do.jl +++ b/julia/step4_if_fn_do.jl @@ -51,7 +51,7 @@ function EVAL(ast, env) EVAL(ast[3], env) end elseif symbol("fn*") == ast[1] - (args...) -> EVAL(ast[3], Env(env, ast[2], args)) + (args...) -> EVAL(ast[3], Env(env, ast[2], Any[args...])) else el = eval_ast(ast, env) f, args = el[1], el[2:end] diff --git a/julia/step5_tco.jl b/julia/step5_tco.jl index 37f32090..eeefb99e 100755 --- a/julia/step5_tco.jl +++ b/julia/step5_tco.jl @@ -61,7 +61,7 @@ function EVAL(ast, env) end elseif symbol("fn*") == ast[1] return MalFunc( - (args...) -> EVAL(ast[3], Env(env, ast[2], args)), + (args...) -> EVAL(ast[3], Env(env, ast[2], Any[args...])), ast[3], env, ast[2]) else el = eval_ast(ast, env) diff --git a/julia/step6_file.jl b/julia/step6_file.jl index 98513484..7e0ce14c 100755 --- a/julia/step6_file.jl +++ b/julia/step6_file.jl @@ -61,7 +61,7 @@ function EVAL(ast, env) end elseif symbol("fn*") == ast[1] return MalFunc( - (args...) -> EVAL(ast[3], Env(env, ast[2], args)), + (args...) -> EVAL(ast[3], Env(env, ast[2], Any[args...])), ast[3], env, ast[2]) else el = eval_ast(ast, env) diff --git a/julia/step7_quote.jl b/julia/step7_quote.jl index 8206da42..5c4cb7b7 100755 --- a/julia/step7_quote.jl +++ b/julia/step7_quote.jl @@ -82,7 +82,7 @@ function EVAL(ast, env) end elseif symbol("fn*") == ast[1] return MalFunc( - (args...) -> EVAL(ast[3], Env(env, ast[2], args)), + (args...) -> EVAL(ast[3], Env(env, ast[2], Any[args...])), ast[3], env, ast[2]) else el = eval_ast(ast, env) diff --git a/julia/step8_macros.jl b/julia/step8_macros.jl index aba7868d..92117f36 100755 --- a/julia/step8_macros.jl +++ b/julia/step8_macros.jl @@ -107,7 +107,7 @@ function EVAL(ast, env) end elseif symbol("fn*") == ast[1] return MalFunc( - (args...) -> EVAL(ast[3], Env(env, ast[2], args)), + (args...) -> EVAL(ast[3], Env(env, ast[2], Any[args...])), ast[3], env, ast[2]) else el = eval_ast(ast, env) diff --git a/julia/step9_try.jl b/julia/step9_try.jl index a8a2d79f..5a37fa61 100755 --- a/julia/step9_try.jl +++ b/julia/step9_try.jl @@ -125,7 +125,7 @@ function EVAL(ast, env) end elseif symbol("fn*") == ast[1] return MalFunc( - (args...) -> EVAL(ast[3], Env(env, ast[2], args)), + (args...) -> EVAL(ast[3], Env(env, ast[2], Any[args...])), ast[3], env, ast[2]) else el = eval_ast(ast, env) diff --git a/julia/stepA_mal.jl b/julia/stepA_mal.jl index 3dda867e..3ca25bc9 100755 --- a/julia/stepA_mal.jl +++ b/julia/stepA_mal.jl @@ -125,7 +125,7 @@ function EVAL(ast, env) end elseif symbol("fn*") == ast[1] return MalFunc( - (args...) -> EVAL(ast[3], Env(env, ast[2], args)), + (args...) -> EVAL(ast[3], Env(env, ast[2], Any[args...])), ast[3], env, ast[2]) else el = eval_ast(ast, env)