diff options
Diffstat (limited to 'js')
| -rw-r--r-- | js/step5_tco.js | 2 | ||||
| -rw-r--r-- | js/step6_file.js | 2 | ||||
| -rw-r--r-- | js/step7_quote.js | 10 | ||||
| -rw-r--r-- | js/step8_macros.js | 10 | ||||
| -rw-r--r-- | js/step9_interop.js | 10 | ||||
| -rw-r--r-- | js/stepA_more.js | 10 |
6 files changed, 30 insertions, 14 deletions
diff --git a/js/step5_tco.js b/js/step5_tco.js index 9ba7a98..dbeaa90 100644 --- a/js/step5_tco.js +++ b/js/step5_tco.js @@ -68,7 +68,7 @@ function _EVAL(ast, env) { case "fn*": return types._function(EVAL, Env, a2, env, a1); default: - var el = eval_ast(ast, env), f = el[0], meta = f.__meta__; + var el = eval_ast(ast, env), f = el[0]; if (f.__ast__) { ast = f.__ast__; env = f.__gen_env__(el.slice(1)); diff --git a/js/step6_file.js b/js/step6_file.js index ab4ba2f..ee39501 100644 --- a/js/step6_file.js +++ b/js/step6_file.js @@ -68,7 +68,7 @@ function _EVAL(ast, env) { case "fn*": return types._function(EVAL, Env, a2, env, a1); default: - var el = eval_ast(ast, env), f = el[0], meta = f.__meta__; + var el = eval_ast(ast, env), f = el[0]; if (f.__ast__) { ast = f.__ast__; env = f.__gen_env__(el.slice(1)); diff --git a/js/step7_quote.js b/js/step7_quote.js index 3125083..6782647 100644 --- a/js/step7_quote.js +++ b/js/step7_quote.js @@ -23,9 +23,13 @@ function quasiquote(ast) { } else if (ast[0].value === 'unquote') { return ast[1]; } else if (is_pair(ast[0]) && ast[0][0].value === 'splice-unquote') { - return [types._symbol("concat"), ast[0][1], quasiquote(ast.slice(1))]; + return [types._symbol("concat"), + ast[0][1], + quasiquote(ast.slice(1))]; } else { - return [types._symbol("cons"), quasiquote(ast[0]), quasiquote(ast.slice(1))]; + return [types._symbol("cons"), + quasiquote(ast[0]), + quasiquote(ast.slice(1))]; } } @@ -88,7 +92,7 @@ function _EVAL(ast, env) { case "fn*": return types._function(EVAL, Env, a2, env, a1); default: - var el = eval_ast(ast, env), f = el[0], meta = f.__meta__; + var el = eval_ast(ast, env), f = el[0]; if (f.__ast__) { ast = f.__ast__; env = f.__gen_env__(el.slice(1)); diff --git a/js/step8_macros.js b/js/step8_macros.js index 190cadc..f50bba4 100644 --- a/js/step8_macros.js +++ b/js/step8_macros.js @@ -23,9 +23,13 @@ function quasiquote(ast) { } else if (ast[0].value === 'unquote') { return ast[1]; } else if (is_pair(ast[0]) && ast[0][0].value === 'splice-unquote') { - return [types._symbol("concat"), ast[0][1], quasiquote(ast.slice(1))]; + return [types._symbol("concat"), + ast[0][1], + quasiquote(ast.slice(1))]; } else { - return [types._symbol("cons"), quasiquote(ast[0]), quasiquote(ast.slice(1))]; + return [types._symbol("cons"), + quasiquote(ast[0]), + quasiquote(ast.slice(1))]; } } @@ -112,7 +116,7 @@ function _EVAL(ast, env) { case "fn*": return types._function(EVAL, Env, a2, env, a1); default: - var el = eval_ast(ast, env), f = el[0], meta = f.__meta__; + var el = eval_ast(ast, env), f = el[0]; if (f.__ast__) { ast = f.__ast__; env = f.__gen_env__(el.slice(1)); diff --git a/js/step9_interop.js b/js/step9_interop.js index 0fd7044..4987931 100644 --- a/js/step9_interop.js +++ b/js/step9_interop.js @@ -23,9 +23,13 @@ function quasiquote(ast) { } else if (ast[0].value === 'unquote') { return ast[1]; } else if (is_pair(ast[0]) && ast[0][0].value === 'splice-unquote') { - return [types._symbol("concat"), ast[0][1], quasiquote(ast.slice(1))]; + return [types._symbol("concat"), + ast[0][1], + quasiquote(ast.slice(1))]; } else { - return [types._symbol("cons"), quasiquote(ast[0]), quasiquote(ast.slice(1))]; + return [types._symbol("cons"), + quasiquote(ast[0]), + quasiquote(ast.slice(1))]; } } @@ -118,7 +122,7 @@ function _EVAL(ast, env) { case "fn*": return types._function(EVAL, Env, a2, env, a1); default: - var el = eval_ast(ast, env), f = el[0], meta = f.__meta__; + var el = eval_ast(ast, env), f = el[0]; if (f.__ast__) { ast = f.__ast__; env = f.__gen_env__(el.slice(1)); diff --git a/js/stepA_more.js b/js/stepA_more.js index 6a2b949..a4fe21a 100644 --- a/js/stepA_more.js +++ b/js/stepA_more.js @@ -23,9 +23,13 @@ function quasiquote(ast) { } else if (ast[0].value === 'unquote') { return ast[1]; } else if (is_pair(ast[0]) && ast[0][0].value === 'splice-unquote') { - return [types._symbol("concat"), ast[0][1], quasiquote(ast.slice(1))]; + return [types._symbol("concat"), + ast[0][1], + quasiquote(ast.slice(1))]; } else { - return [types._symbol("cons"), quasiquote(ast[0]), quasiquote(ast.slice(1))]; + return [types._symbol("cons"), + quasiquote(ast[0]), + quasiquote(ast.slice(1))]; } } @@ -129,7 +133,7 @@ function _EVAL(ast, env) { case "fn*": return types._function(EVAL, Env, a2, env, a1); default: - var el = eval_ast(ast, env), f = el[0], meta = f.__meta__; + var el = eval_ast(ast, env), f = el[0]; if (f.__ast__) { ast = f.__ast__; env = f.__gen_env__(el.slice(1)); |