[WWcvs] pg: Pass the canBeInUnion call on to the Formula's root node

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

Log Message:
-----------
Pass the canBeInUnion call on to the Formula's root node

Modified Files:
--------------
    pg/lib/Value:
        Formula.pm

Revision Data
-------------
Index: Formula.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Value/Formula.pm,v
retrieving revision 1.34
retrieving revision 1.35
diff -Llib/Value/Formula.pm -Llib/Value/Formula.pm -u -r1.34 -r1.35
--- lib/Value/Formula.pm
+++ lib/Value/Formula.pm
@@ -72,6 +72,7 @@
 sub isOne {(shift)->{tree}{isOne}}
 
 sub isSetOfReals {(shift)->type =~ m/Interval|Set|Union/}
+sub canBeInUnion {(shift)->{tree}->canBeInUnion}
 
 ############################################
 #