/* -*- LPC -*- */
/*
* $Locker: $
* $Id: valid_to_c.c,v 1.1 1998/01/06 05:12:03 ceres Exp $
* $Log: valid_to_c.c,v $
* Revision 1.1 1998/01/06 05:12:03 ceres
* Initial revision
*
*/
int valid_compile_to_c() {
if (previous_object() == this_object())
return 1;
if (previous_object() != find_object("/secure/cmds/creator/compile"))
return 0;
if (!interactive(previous_object(1)))
return 0;
if (!this_object()->query_lord(previous_object(-1)))
return 0;
return 1;
} /* valid_compile_to_c() */