Fix bug 4752 (?)

Could not reproduce error but adding parentheses may help.

Author: gajennings

OpenProblemLibrary/Wiley/setAnton_Section_8.2/Question7.pg

@@ -28,17 +28,15 @@ loadMacros(
   "PGstandard.pl",
   "MathObjects.pl",
   "littleneck.pl",
-  "contextFraction.pl",
   "PGcourse.pl"
 );
 #--
 rand_button();
 #
 # Set Up - Set up variable context and formulation of problem
 #
-$CT = Context("Numeric");
-$CT->variables->add(y=>'Real', dy=>'Real', dx=>'Real', C=>'Real', c=>'Real');
-Parser::Numbers::NoDecimals;
+Context("Numeric");
+Context()->variables->add(y=>'Real', dy=>'Real', dx=>'Real', C=>'Real', c=>'Real');
 #*********************************************************************************
 #    e^(-y) f(x) + y' g(x) = 0,
 #    Separable ==>  f(x)/g(x) dx = -e^y dy
@@ -62,8 +60,7 @@ $Fx = $Fs[$idx];
 $Gx = $Gs[$idx];
 $Solution1 = Formula("$Sol1[$idx]");
 $Solution2 = Formula("$Sol2[$idx]");
-$CT->flags->set(showExtraParens=>0);
-$Diffeq = Formula("e^(-y)*$Fx + dy/dx*$Gx")->reduce;
+$Diffeq = Formula("e^(-y)*($Fx) + dy/dx*($Gx)")->reduce;
 #*******************
 #   Display stuff
 #*******************
@@ -73,24 +70,23 @@ $Solutiondisp = $SolTex[$idx];
 #***********************
 #   Problem Statement
 #***********************
-$CT = Context("Numeric");
 TEXT(beginproblem());
 #
 # Strings in Tex form (formula)
 #
-$CT->texStrings;
+Context()->texStrings;
 BEGIN_TEXT
 Using separation of variables, solve the differential equation,
 \[ $Diffeq = 0. \]
-Use $BITALIC $BBOLD C $EBOLD $EITALIC to represent the arbitrary constant.
+Use $BBOLD C $EBOLD to represent the arbitrary constant.
 $PAR
-\(\small{y}\) = \{ ans_rule(30) \}
+\(y\) = \{ ans_rule(30) \}
 $PAR
 END_TEXT
 #
 # Expect strings in standard form
 #
-$CT->normalStrings;
+Context()->normalStrings;
 # *******************************
 #   Answer and Solution section
 # *******************************
@@ -108,16 +104,16 @@ ANS( $Solution1->cmp( checker=>sub
 #***************************
 #  Explanation of solution  
 #***************************
-$CT->texStrings;
-SOLUTION(EV3(<<'END_SOLUTION'));
+Context()->texStrings;
+BEGIN_SOLUTION
 $PAR SOLUTION $PAR
 After separating and writing in differential form, the equation becomes,
-\[ \small{$Dform}. \]
+\[ $Dform. \]
 Integrating on both sides yields,
-\[ \small{$Afterint}. \]
+\[ $Afterint. \]
 Applying the natural logarithm to each side we get,
-\[ \small{y = $Solutiondisp}. \]
+\[ y = $Solutiondisp. \]
 $PAR
 END_SOLUTION
-$CT->normalStrings;
+Context()->normalStrings;
 ENDDOCUMENT();