remove #. reader

This commit is contained in:
Yuichi Nishiwaki 2015-06-16 21:39:41 +09:00
parent 6c821105fd
commit a88b5e193f
1 changed files with 0 additions and 11 deletions

View File

@ -146,16 +146,6 @@ read_directive(pic_state *pic, struct pic_port *port, int c)
return read_comment(pic, port, 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 static pic_value
read_quote(pic_state *pic, struct pic_port *port, int PIC_UNUSED(c)) 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_char;
reader->dispatch['('] = read_vector; reader->dispatch['('] = read_vector;
reader->dispatch['u'] = read_undef_or_blob; reader->dispatch['u'] = read_undef_or_blob;
reader->dispatch['.'] = read_eval;
/* read labels */ /* read labels */
for (c = '0'; c <= '9'; ++c) { for (c = '0'; c <= '9'; ++c) {