| … | |
… | |
| 86 | return $formula |
86 | return $formula |
| 87 | } |
87 | } |
| 88 | sub recursiveUnion { |
88 | sub recursiveUnion { |
| 89 | my $formula = shift; my $right = pop(@_); |
89 | my $formula = shift; my $right = pop(@_); |
| 90 | return $right if (scalar(@_) == 0); |
90 | return $right if (scalar(@_) == 0); |
| 91 | return $formula->{context}{parser}{BOP}-> |
|
|
| 92 | new($formula,'U',recursiveUnion($formula,@_),$right); |
91 | return $formula->Item("BOP")->new($formula,'U',recursiveUnion($formula,@_),$right); |
| 93 | } |
92 | } |
| 94 | |
93 | |
| 95 | # |
94 | # |
| 96 | # Try to promote arbitrary data to a set |
95 | # Try to promote arbitrary data to a set |
| 97 | # |
96 | # |
Parent Directory
| 
Revision Log
| 
Patch