Fixed subtle bug in expr().

[rmac] / procln.c

diff --git a/procln.c b/procln.c
index 9987aad70ef4c836d81a1fb08ea4fc8f95aae579..5ae5c5e080e501f7f0801220e6407306ef65ae83 100644 (file)
--- a/procln.c
+++ b/procln.c
@@ -171,7 +171,8 @@ loop1:                                                                              // Internal line processing loop
        // First token MUST be a symbol
        if (*tok != SYMBOL)
        {
        // First token MUST be a symbol
        if (*tok != SYMBOL)
        {

-               error(syntax_error);
+//             error(syntax_error);
+               error("syntax error; expected symbol");

                goto loop;
        }
 
                goto loop;
        }
 


@@ -215,7 +216,8 @@ as68label:
        // Next token MUST be a symbol
        if (*tok++ != SYMBOL)
        {
        // Next token MUST be a symbol
        if (*tok++ != SYMBOL)
        {

-               error(syntax_error);
+//             error(syntax_error);
+               error("syntax error; expected symbol");

                goto loop;
        }
 
                goto loop;
        }