--- parser3/src/main/compile.C	2001/02/21 06:59:43	1.4
+++ parser3/src/main/compile.C	2001/02/21 07:31:41	1.6
@@ -1,5 +1,5 @@
 /*
-  $Id: compile.C,v 1.4 2001/02/21 06:59:43 paf Exp $
+  $Id: compile.C,v 1.6 2001/02/21 07:31:41 paf Exp $
 */
 
 #include "pa_string.h"
@@ -20,11 +20,10 @@ Array *real_compile(COMPILE_PARAMS) {
 
 	Pool& pool=request.pool();
 
-	///yydebug=1;
+	yydebug=1;
 	struct parse_control pc;
 	/* input */
 	pc.pool=&pool;
-	pc.exception=&request.exception();
 	pc.source=source;
 #ifndef NO_STRING_ORIGIN
 	pc.file=file;
@@ -36,7 +35,10 @@ Array *real_compile(COMPILE_PARAMS) {
 	pc.ls=LS_USER;
 	pc.sp=0;
 	/* parse! */
-	yyparse(&pc);
+	if(yyparse(&pc)) // parse, error?
+		request.exception().raise(0,0,
+			0,
+			"%s @%s[%d:%d]", pc.error, file, pc.line, pc.col-1);
 	
 	/* result */
 	return pc.result;