From b8ee29b22fbaa7a01f2754b4d6dd9af52e02017c Mon Sep 17 00:00:00 2001
From: Joel Martin <github@martintribe.org>
Date: Thu, 18 Dec 2014 20:33:49 -0600
Subject: All: add keywords.

Also, fix nth and count to match cloure.
---
 bash/reader.sh | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'bash/reader.sh')

diff --git a/bash/reader.sh b/bash/reader.sh
index ee7e505..a00e7a1 100644
--- a/bash/reader.sh
+++ b/bash/reader.sh
@@ -15,6 +15,7 @@ READ_ATOM () {
         \"*)    token="${token:1:-1}"
                 token="${token//\\\"/\"}"
                 _string "${token}" ;;
+        :*)     _keyword "${token:1}" ;;
         nil)    r="${__nil}" ;;
         true)   r="${__true}" ;;
         false)  r="${__false}" ;;
@@ -135,7 +136,7 @@ READ_STR () {
     declare -a __reader_tokens
     TOKENIZE "${*}" || return 1  # sets __reader_tokens
     #set | grep ^__reader_tokens
-    if [ -z "${__reader_tokens[k]}" ]; then
+    if [ -z "${__reader_tokens[0]}" ]; then
         r=
         return 1  # No tokens
     fi
-- 
cgit v1.2.3