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.
---
 vb/printer.vb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'vb/printer.vb')

diff --git a/vb/printer.vb b/vb/printer.vb
index 212b89c..3f3e6e2 100644
--- a/vb/printer.vb
+++ b/vb/printer.vb
@@ -22,7 +22,9 @@ Namespace Mal
                              print_readably As Boolean) As String
             Dim strs As New List(Of String)
             For Each entry As KeyValuePair(Of String, MalVal) In value
-                If print_readably Then
+                If entry.Key.Length > 0 and entry.Key(0) = ChrW(&H029e) Then
+                    strs.Add(":" & entry.Key.Substring(1))
+                Else If print_readably Then
                     strs.Add("""" & entry.Key.ToString() & """")
                 Else
                     strs.Add(entry.Key.ToString())
-- 
cgit v1.2.3