From 6a0cc4c9f7467061ba0fba79e39a7dfb4daaebff Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sun, 27 Jul 2014 18:35:50 +0900
Subject: [PATCH] single ')' should be an read error

---
 src/read.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/read.c b/src/read.c
index 5ee93da4..f48384d8 100644
--- a/src/read.c
+++ b/src/read.c
@@ -668,6 +668,8 @@ read_nullable(pic_state *pic, struct pic_port *port, char c)
   }
 
   switch (c) {
+  case ')':
+    read_error(pic, "unmatched parenthesis");
   case ';':
     return read_comment(pic, port, c);
   case '#':