All: add keywords.

Also, fix nth and count to match cloure.

1 files changed, 2 insertions, 0 deletions

diff --git a/r/reader.r b/r/reader.r
index 780dd4d..7f20288 100644
--- a/r/reader.r
+++ b/r/reader.r
@@ -46,6 +46,8 @@ read_atom <- function(rdr) {
         gsub("\\\\n", "\\n",
              gsub("\\\\\"", "\"",
                   substr(token, 2, nchar(token)-1)))
+    } else if (substr(token,1,1) == ":") {
+        new.keyword(substring(token,2))
     } else if (token == "nil") {
         nil
     } else if (token == "true") {