File tree Expand file tree Collapse file tree 1 file changed +0
-12
lines changed Expand file tree Collapse file tree 1 file changed +0
-12
lines changed Original file line number Diff line number Diff line change @@ -351,18 +351,6 @@ sub new {
351351 return $f ;
352352}
353353
354- sub typeMatch {
355- my $self = shift ; my $other = shift ; my $ans = shift ;
356- return 0 unless $self -> type eq $other -> type;
357- $other = $other -> Package(" Formula" )-> new($self -> context,$other ) unless $other -> isFormula;
358- my $typeMatch = ($self -> createRandomPoints(1))[1]-> [0]{data }[1];
359- $main::__other__ = sub {($other -> createRandomPoints(1))[1]-> [0]{data }[1]};
360- $other = main::PG_restricted_eval(' &$__other__()' );
361- delete $main ::{__other__ };
362- return 1 unless defined ($other ); # can't really tell, so don't report type mismatch
363- $typeMatch -> typeMatch($other ,$ans );
364- }
365-
366354sub cmp_class {
367355 my $self = shift ; my $value ;
368356 if ($self -> {tree }{rop }{isConstant }) {
You can’t perform that action at this time.
0 commit comments