--- parser3/src/main/compile.C	2001/03/09 08:28:34	1.22
+++ parser3/src/main/compile.C	2001/03/11 12:04:44	1.26
@@ -1,5 +1,9 @@
 /*
-  $Id: compile.C,v 1.22 2001/03/09 08:28:34 paf Exp $
+	Parser
+	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
+	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
+
+	$Id: compile.C,v 1.26 2001/03/11 12:04:44 paf Exp $
 */
 
 #include "pa_request.h"
@@ -22,11 +26,11 @@ VClass& Request::real_compile(COMPILE_PA
 	pc.pool=&pool();
 	pc.request=this;
 	VClass *vclass;
-	if(name) { // we were told the name of a class?
+	if(name) { // we were told the name of compiled class?
 		// yes. create it
 		vclass=NEW VClass(pool());
 		// defaulting base. may change with @BASE
-		vclass->set_base(root_class);
+		vclass->set_base(base_class?*base_class:root_class);
 		// append to request's classes
 		classes_array()+=vclass;
 		classes().put(*name, vclass);
@@ -47,7 +51,7 @@ VClass& Request::real_compile(COMPILE_PA
 	pc.sp=0;
 	
 	// parse=compile! 
-	yydebug=1;
+//	yydebug=1;
 	if(yyparse(&pc)) { // error?
 		if(pc.col==0) { // expecting something after EOL means they've expected it BEFORE
 			// step back.  -1 col means EOL