diff options
| author | Joel Martin <github@martintribe.org> | 2015-02-28 10:35:04 -0600 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2015-02-28 10:35:04 -0600 |
| commit | 2ab1e5845c213a9951bee46a0c991202e6c46d5c (patch) | |
| tree | ac1e5d898523bb892181804aa64f22ec4f4b9032 /js | |
| parent | 1218ce98a40ef243824fed0efce7160a10fe5f36 (diff) | |
| download | mal-2ab1e5845c213a9951bee46a0c991202e6c46d5c.tar.gz mal-2ab1e5845c213a9951bee46a0c991202e6c46d5c.zip | |
Multiple: interop enhancements.
Diffstat (limited to 'js')
| -rw-r--r-- | js/stepA_interop.js | 8 | ||||
| -rw-r--r-- | js/types.js | 4 |
2 files changed, 10 insertions, 2 deletions
diff --git a/js/stepA_interop.js b/js/stepA_interop.js index 456c006..d879cd3 100644 --- a/js/stepA_interop.js +++ b/js/stepA_interop.js @@ -5,6 +5,7 @@ if (typeof module !== 'undefined') { var printer = require('./printer'); var Env = require('./env').Env; var core = require('./core'); + var interop = require('./interop'); } // read @@ -108,8 +109,11 @@ function _EVAL(ast, env) { return eval(a1.toString()); case ".": var el = eval_ast(ast.slice(2), env), - f = eval(a1.toString()); - return f.apply(f, el); + r = interop.resolve_js(a1.toString()), + obj = r[0], f = r[1]; + var res = f.apply(obj, el); + console.log("DEBUG3:", res); + return interop.js_to_mal(res); case "try*": try { return EVAL(a1, env); diff --git a/js/types.js b/js/types.js index 848a484..e3901b7 100644 --- a/js/types.js +++ b/js/types.js @@ -79,6 +79,10 @@ function _clone (obj) { default: throw new Error("clone of non-collection: " + _obj_type(obj)); } + Object.defineProperty(new_obj, "__meta__", { + enumerable: false, + writable: true + }); return new_obj; } |
