From 3738502a328aa4719b868862cbb0dba977359c36 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Tue, 24 Jun 2008 14:38:30 +0200
Subject: Reader: When reading a close-paren, remove it from the stream before
 continuing.

---
 MLKParenReader.m | 2 ++
 1 file changed, 2 insertions(+)

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])];
 }
-- 
cgit v1.2.3