Thanks! When I get the word from Dave that a new GCL is ready to
test, I'll give it a try.
-- Matt
Cc: dk...@cs.utexas.edu, gr...@cs.utexas.edu, gcl-devel@gnu.org
From: Camm Maguire <c...@maguirefamily.org>
Date: Tue, 03 Mar 2009 12:12:44 -0500
X-SpamAssassin-Status: No, hits=-2.6 required=5.0
X-UTCS-Spam-Status: No, hits=-202 required=165
Greetings, and thanks! OK I think this is fixed now in both
branches. Here is the 2.6.8pre patch to read.d:
@@ -638,7 +646,7 @@
static void
Lleft_parenthesis_reader()
{
- object in, c, x;
+ object in, x;
object *p;
check_arg(2);
@@ -654,18 +662,17 @@
if (dot_flag) {
if (p == &vs_head)
FEerror("A dot appeared after a left parenthesis.", 0);
+ delimiting_char = code_char(')');
in_list_flag = TRUE;
*p = read_object(in);
if (dot_flag)
FEerror("Two dots appeared consecutively.", 0);
- c = read_char(in);
- while (cat(c) == cat_whitespace)
- c = read_char(in);
- if (char_code(c) != ')')
- FEerror("A dot appeared before a right parenthesis.", 0);
- else if (PP0>P0) PP0--; /* should be the only other
place
- outside of read_object where
- closing parens are read */
+ if (*p==OBJNULL)
+ FEerror("Object missing after dot.", 0);
+ delimiting_char = code_char(')');
+ in_list_flag = TRUE;
+ if (read_object(in)!=OBJNULL)
+ FEerror("Two objects after dot.",0);
goto ENDUP;
}
vs_push(x);
Take care,
--
Camm Maguire c...@maguirefamily.org
==========================================================================
"The earth is but one country, and mankind its citizens." -- Baha'u'llah
_______________________________________________
Gcl-devel mailing list
Gcl-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/gcl-devel
