!                                
!
! ***** FRED$COMPILE_BUFFER *****   Routine to compile the current buffer.
!
PROCEDURE fred$tpu_compile
   LOCAL this_buffer, 
	temp;

   on_error
      MESSAGE ("Error compiling current buffer...");
   endon_error;

   this_buffer := CURRENT_BUFFER;
   temp := GET_INFO (this_buffer,"name");
!message("Buffer: "+temp);
   if INDEX (temp,".TPU") = 0 then
      MESSAGE ('Buffer MUST have a filename extention of ".TPU" to compile it...');
      return;
   endif;
   SET (informational,on);
   MESSAGE ("Compiling current buffer...");
   EXECUTE ('COMPILE (CURRENT_BUFFER)');
   MESSAGE ("Compilation of current buffer completed.");
ENDPROCEDURE;