[WWcvs] pg: Mark function as constant if it is.

[dpvc v. a. <we...@ma...>]

Log Message:
-----------
Mark function as constant if it is.

Modified Files:
--------------
    pg/lib/Parser:
        Function.pm

Revision Data
-------------
Index: Function.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/Function.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -Llib/Parser/Function.pm -Llib/Parser/Function.pm -u -r1.13 -r1.14
--- lib/Parser/Function.pm
+++ lib/Parser/Function.pm
@@ -19,6 +19,7 @@
     name => $name, params => $params,
     def => $def, ref => $ref, equation => $equation,
   }, $def->{class};
+  $fn->{isConstant} = $constant;
   $fn->_check;
   $fn = $context->{parser}{Value}->new($equation,[$fn->eval])
     if $constant && $context->flag('reduceConstantFunctions');