remove #. reader
This commit is contained in:
parent
6c821105fd
commit
a88b5e193f
|
@ -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) {
|
||||||
|
|
Loading…
Reference in New Issue