Reader: When reading a close-paren, remove it from the stream before continuing.

1 files changed, 2 insertions, 0 deletions

diff --git a/MLKParenReader.m b/MLKParenReader.m
index 6bb6ba9..9287ce9 100644
--- a/MLKParenReader.m
+++ b/MLKParenReader.m
@@ -78,6 +78,8 @@ static unichar slurpWhitespaceAndPeek (MLKStream *stream, MLKReadtable *readtabl
           tail = [tail cdr];
         }
     }
+
+  [stream readChar];
   
   return [NSArray arrayWithObject:(cons ? (id)cons : (id)[NSNull null])];
 }