Context fraction reduce issue with the reduceConstants context flag.

[drgrice1]

With the new version of contextFraction.pl the reduce method does not seem to be correctly dealing with simplifying fractions when reduceConstants => 0 is set. The following MWE demonstrates the issue:

DOCUMENT();

loadMacros('PGstandard.pl', 'PGML.pl', 'contextFraction.pl');

Context('Fraction');
Context()->flags->set(reduceConstants => 0);

$frac = Compute("-(-2) / 9")->reduce;

BEGIN_PGML
Enter [`[$frac]`]: [_]{$frac}{10}
END_PGML

ENDDOCUMENT();

The display of the fraction is a decimal in the problem, and the correct answer is not simplified at all. With the version of contextFraction.pl in PG 2.19 or before, the fraction would be displayed as simplified and not a decimal and the correct answer would be the same. Here is screen shot demonstrating what happens when you show correct answers with this problem:

[dpvc]

This change should take care of it:

diff --git a/macros/contexts/contextFraction.pl b/macros/contexts/contextFraction.pl
index af047f86..539db4e3 100644
--- a/macros/contexts/contextFraction.pl
+++ b/macros/contexts/contextFraction.pl
@@ -709,7 +709,7 @@ sub _check {
                $self->{type} = $Value::Type{number};
        } else {
                &{ $self->super('_check') }($self);
-               $self->setExtensionClass('MINUS') if $self->{op}->class eq 'Number';
+               $self->setExtensionClass('MINUS') if $self->extensionClassMatch($self->{op}, 'MINUS', 'INTEGER');
        }
        $self->mutate;
 }

[drgrice1]

That seems to work. I will put in a pull request with that change.

[somiaj]

Fixed in #1327.