All: add keywords.

Also, fix nth and count to match cloure.

1 files changed, 4 insertions, 2 deletions

diff --git a/vb/reader.vb b/vb/reader.vb
index 121aac2..9d4e03d 100644
--- a/vb/reader.vb
+++ b/vb/reader.vb
@@ -64,7 +64,7 @@ Namespace Mal
 
         Shared Function read_atom(rdr As Reader) As MalVal
             Dim token As String = rdr.get_next()
-            Dim pattern As String = "(^-?[0-9]+$)|(^-?[0-9][0-9.]*$)|(^nil$)|(^true$)|(^false$)|^("".*"")$|(^[^""]*$)"
+            Dim pattern As String = "(^-?[0-9]+$)|(^-?[0-9][0-9.]*$)|(^nil$)|(^true$)|(^false$)|^("".*"")$|^:(.*)|(^[^""]*$)"
             Dim regex As Regex = New Regex(pattern)
             Dim match As Match = regex.Match(token)
             'Console.WriteLine("token: ^" + token + "$")
@@ -86,7 +86,9 @@ Namespace Mal
                         .Replace("\""", """") _
                         .Replace("\n", Environment.NewLine))
             Else If match.Groups(7).Value <> String.Empty Then
-                return New Mal.types.MalSymbol(match.Groups(7).Value)
+                return New Mal.types.MalString(ChrW(&H029e) & match.Groups(7).Value)
+            Else If match.Groups(8).Value <> String.Empty Then
+                return New Mal.types.MalSymbol(match.Groups(8).Value)
             Else
                 throw New ParseError("unrecognized '" & match.Groups(0).Value & "'")
             End If