Fix bug in librep extractor.

diff --git a/src/ChangeLog b/src/ChangeLog
index 78444559186f1346bbbaabeccd70b37d9bb5689b..a1cb42438d0a2f79cd50f10f2888bc9f637d5d41 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+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 ',@'.

diff --git a/src/x-librep.c b/src/x-librep.c
index b8f21f13823843d064794eda9ba13516fa1128eb..d2f2e1680a7923bdb87e504eac2d3931a7d1f24a 100644 (file)
--- 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.  */