author | Alan Dipert
<alan@dipert.org> 2019-09-29 03:15:21 UTC |
committer | Alan Dipert
<alan@dipert.org> 2019-09-29 03:15:21 UTC |
parent | a39ed0d3f2269baaf764d04045341de6ed36b806 |
jacl.js | +3 | -2 |
diff --git a/jacl.js b/jacl.js index d4b72d3..ae969cc 100644 --- a/jacl.js +++ b/jacl.js @@ -690,8 +690,9 @@ const compile = (form, env) => { if (arg1 instanceof LispSymbol) { return `LispSymbol.intern(${JSON.stringify(arg1.packageName)}, ${JSON.stringify(arg1.name)})`; } else if (arg1 instanceof Cons) { - let car = compile(Cons.listOf(CLPKG.intern('QUOTE'), arg1.car)), - cdr = compile(Cons.listOf(CLPKG.intern('QUOTE'), arg1.cdr)) + let [car, cdr] = [arg1.car, arg1.cdr].map(x => { + return compile(Cons.listOf(CLPKG.intern('QUOTE'), x)); + }); return `(new Cons(${car},${cdr}))`; } else { return compile(arg1, env);