diff options
-rw-r--r-- | src/ChangeLog | 4 | ||||
-rw-r--r-- | src/x-librep.c | 14 |
2 files changed, 17 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 7844455..a1cb424 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,9 @@ 2002-01-06 Bruno Haible <bruno@clisp.org> + * x-librep.c (read_object): Fix handling of #[ and #(. + +2002-01-06 Bruno Haible <bruno@clisp.org> + * x-lisp.c (read_object): Treat ',.' like ',@'. 2002-01-05 Bruno Haible <bruno@clisp.org> diff --git a/src/x-librep.c b/src/x-librep.c index b8f21f1..d2f2e16 100644 --- a/src/x-librep.c +++ b/src/x-librep.c @@ -938,11 +938,23 @@ read_object (op) } /*FALLTHROUGH*/ case '\'': + case ':': + { + struct object inner; + read_object (&inner); + /* Dots and EOF are not allowed here. + But be tolerant. */ + free_object (&inner); + op->type = t_other; + last_non_comment_line = line_number; + return; + } + case '[': case '(': - case ':': { struct object inner; + do_ungetc (c); read_object (&inner); /* Dots and EOF are not allowed here. But be tolerant. */ |