git » jacl.git » commit 88007b8

Fix reading keywords

author Alan Dipert
2019-11-04 05:40:53 UTC
committer Alan Dipert
2019-11-04 05:40:53 UTC
parent 39184b8b669c3f3cd285b47518863a40a6cf24f1

Fix reading keywords

jacl.js +5 -6

diff --git a/jacl.js b/jacl.js
index b25da95..edc1a45 100644
--- a/jacl.js
+++ b/jacl.js
@@ -148,11 +148,6 @@ class LispSymbol {
   // example: 'foo' => ['foo', null, null]
   static parseSymbol(token) {
 
-    if (token.str.length > 2
-        && token.str[0] === ':'
-        && token.firstPipe !== 0)
-      return [token.str.substring(1), 'KEYWORD', true];
-
     let accum = '';
 
     for (let i = 0; i < token.str.length; i++) {
@@ -165,7 +160,11 @@ class LispSymbol {
           && token.str.length > i+1
           && token.str[i+1] !== ':'
           && (token.firstPipe === null || token.firstPipe >= i)) {
-        return [token.str.substring(i+1), accum, true];
+        return [
+          token.str.substring(i+1),
+          accum.length ? accum : 'KEYWORD',
+          true
+        ];
       } else {
         accum += token.str[i];
       }