aboutsummaryrefslogtreecommitdiff
path: root/js/types.js
diff options
context:
space:
mode:
authorJoel Martin <github@martintribe.org>2014-04-23 21:59:50 -0500
committerJoel Martin <github@martintribe.org>2014-04-23 21:59:50 -0500
commit6301e0b6374cecc5599665be14d6ddc6a31ce1e8 (patch)
treedbf1dc2ff6c682fd87c72a7907e7f6e59c8d4c03 /js/types.js
parent89bd4de1e2704c1bc562788b2c5e4fc08b71a538 (diff)
downloadmal-6301e0b6374cecc5599665be14d6ddc6a31ce1e8.tar.gz
mal-6301e0b6374cecc5599665be14d6ddc6a31ce1e8.zip
All: TCO let* and quasiquote.
Diffstat (limited to 'js/types.js')
-rw-r--r--js/types.js3
1 files changed, 2 insertions, 1 deletions
diff --git a/js/types.js b/js/types.js
index 889e154..d288231 100644
--- a/js/types.js
+++ b/js/types.js
@@ -107,6 +107,7 @@ function _function(Eval, Env, ast, env, params) {
fn.__meta__ = null;
fn.__ast__ = ast;
fn.__gen_env__ = function(args) { return new Env(env, params, args); };
+ fn._ismacro_ = false;
return fn;
}
function _function_Q(obj) { return typeof obj == "function"; }
@@ -131,7 +132,7 @@ function _vector() {
v.__isvector__ = true;
return v;
}
-function _vector_Q(obj) { return Array.isArray(obj) && obj.__isvector__; }
+function _vector_Q(obj) { return Array.isArray(obj) && !!obj.__isvector__; }