--- ray/src/common/caldefn.c 2012/07/29 22:10:45 2.25 +++ ray/src/common/caldefn.c 2019/12/28 18:05:13 2.27 @@ -1,5 +1,5 @@ #ifndef lint -static const char RCSid[] = "$Id: caldefn.c,v 2.25 2012/07/29 22:10:45 greg Exp $"; +static const char RCSid[] = "$Id: caldefn.c,v 2.27 2019/12/28 18:05:13 greg Exp $"; #endif /* * Store variable definitions. @@ -27,8 +27,6 @@ static const char RCSid[] = "$Id: caldefn.c,v 2.25 201 #include "copyright.h" -#include -#include #include #include "rterror.h" @@ -141,6 +139,13 @@ varset( /* set a variable's value */ ep1->type = assign; return; } + } + if (ep1 != NULL && esupport&E_REDEFW) { + wputs(qname); + if (ep1->type == ':') + wputs(": reset constant expression\n"); + else + wputs(": reset expression\n"); } /* hand build definition */ ep1 = newnode();