git » jacl.git » commit 038f3a1

work on QUOTE

author Alan Dipert
2019-09-29 03:15:21 UTC
committer Alan Dipert
2019-09-29 03:15:21 UTC
parent a39ed0d3f2269baaf764d04045341de6ed36b806

work on QUOTE

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);