Begin work on set_prolog_flag/2 and current_prolog_flag/2

1 files changed, 8 insertions, 8 deletions

diff --git a/parser.c b/parser.c
index 5480696..2757e66 100644
--- a/parser.c
+++ b/parser.c
@@ -75,7 +75,7 @@ Term *curlybracketterm(void);
 Term *compound(void);
 Term *parseoperators(Term *);
 void match(int);
-void syntaxerror(char *);
+void syntaxerror_parser(char *);
 Term *prologtext(int);
 
 Term *
@@ -111,7 +111,7 @@ prologtext(int querymode)
 		if(!querymode)
 			match(AtomTok);
 	}else
-		syntaxerror("prologtext");
+		syntaxerror_parser("prologtext");
 
 	if(querymode)
 		return t;
@@ -131,7 +131,7 @@ prologtext(int querymode)
 		t->next = prologtext(querymode);
 	}else{
 		print("Expected directive or clause as toplevel\n");
-		syntaxerror("prologtext");
+		syntaxerror_parser("prologtext");
 	}
 
 	return t;
@@ -194,7 +194,7 @@ term(void)
 		break;
 	default:
 		print("Can't parse term of token type %d\n", lookahead.tag);
-		syntaxerror("term");
+		syntaxerror_parser("term");
 		result = nil;
 	}
 
@@ -298,7 +298,7 @@ parseoperators(Term *list)
 			for(i = 0; i < length; i++)
 				print("%S(%d) ", prettyprint(terms[i]), infos[i].level);
 			print("\n");
-			syntaxerror("parseoperators");
+			syntaxerror_parser("parseoperators");
 		}
 
 		int infixlevel = infos[index].type & (Xfx|Xfy|Yfx);
@@ -338,7 +338,7 @@ parseoperators(Term *list)
 			}
 		}else{
 			print("Parse error when parsing operator %S (prefix=%d, postfix=%d, infix=%d level=%d)\n", prettyprint(terms[index]), prefixlevel, postfixlevel, infixlevel, infos[index].level);
-			syntaxerror("parseoperators");
+			syntaxerror_parser("parseoperators");
 		}
 	}
 
@@ -648,11 +648,11 @@ match(int tag)
 	if(lookahead.tag == tag)
 		nexttoken();
 	else
-		syntaxerror("match");
+		syntaxerror_parser("match");
 }
 
 void
-syntaxerror(char *where)
+syntaxerror_parser(char *where)
 {
 	print("Syntax error: Unexpected %d (%S) token in %s\n", lookahead.tag, lookahead.text, where);
 	exits("syntax error");