All: add keywords.

Also, fix nth and count to match cloure.

1 files changed, 2 insertions, 1 deletions

diff --git a/perl/reader.pm b/perl/reader.pm
index cd4c565..501f992 100644
--- a/perl/reader.pm
+++ b/perl/reader.pm
@@ -6,7 +6,7 @@ no if $] >= 5.018, warnings => "experimental::smartmatch";
 use Exporter 'import';
 our @EXPORT_OK = qw( read_str );
 
-use types qw($nil $true $false _hash_map);
+use types qw($nil $true $false _keyword _hash_map);
 
 use Data::Dumper;
 
@@ -37,6 +37,7 @@ sub read_atom {
             $str =~ s/\\n/\n/g;
             return String->new($str)
         }
+        when(/^:/) { return _keyword(substr($token,1)) }
         when(/^nil$/) { return $nil }
         when(/^true$/) { return $true }
         when(/^false$/) { return $false }