author | Alan Dipert
<alan@dipert.org> 2019-11-04 05:40:53 UTC |
committer | Alan Dipert
<alan@dipert.org> 2019-11-04 05:40:53 UTC |
parent | 39184b8b669c3f3cd285b47518863a40a6cf24f1 |
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]; }