From a88b5e193f66c8955c7d2cbfaab42ff7ade3cead Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Tue, 16 Jun 2015 21:39:41 +0900
Subject: [PATCH] remove #. reader

---
 extlib/benz/read.c | 11 -----------
 1 file changed, 11 deletions(-)

diff --git a/extlib/benz/read.c b/extlib/benz/read.c
index df1712c1..6dbea00a 100644
--- a/extlib/benz/read.c
+++ b/extlib/benz/read.c
@@ -146,16 +146,6 @@ read_directive(pic_state *pic, struct pic_port *port, int c)
   return read_comment(pic, port, c);
 }
 
-static pic_value
-read_eval(pic_state *pic, struct pic_port *port, int PIC_UNUSED(c))
-{
-  pic_value form;
-
-  form = read(pic, port, next(port));
-
-  return pic_eval(pic, form, pic->lib->env);
-}
-
 static pic_value
 read_quote(pic_state *pic, struct pic_port *port, int PIC_UNUSED(c))
 {
@@ -829,7 +819,6 @@ reader_table_init(struct pic_reader *reader)
   reader->dispatch['\\'] = read_char;
   reader->dispatch['('] = read_vector;
   reader->dispatch['u'] = read_undef_or_blob;
-  reader->dispatch['.'] = read_eval;
 
   /* read labels */
   for (c = '0'; c <= '9'; ++c) {