git » jacl.git » commit c99d0ba

diff --git a/jacl.js b/jacl.js
index 8cf7d69..15e6b72 100644
--- a/jacl.js
+++ b/jacl.js
@@ -1043,7 +1043,8 @@ const isTag = x => x instanceof LispSymbol
 const asTagName = x => x instanceof LispSymbol ? x.name : x.valueOf();
 const analyzeSpecials = new Map([
   [JACLPKG.intern('%QUOTE'), (env, parent, form) => {
-    return makeNode('quote', { env: env, parent: parent, form: form });
+    const [, obj] = form;
+    return makeNode('constant', { env: env, parent: parent, form: obj });
   }],
   [JACLPKG.intern('%DOT'), (env, parent, form) => {
     const [, target, field] = form;
@@ -1342,11 +1343,6 @@ const emitNode = (print, node) => {
       print(`.${node.field}`);
       if (context !== 'sval') print(';\n');
       break;
-    case 'quote':
-      if (context === 'return') print('return ');
-      print(constantCode(form.cdr.car));
-      if (context !== 'sval') print(';\n');
-      break;
     case 'constant':
       if (context === 'return') print('return ');
       print(constantCode(form));