Fix the DiffCalc/AnswerWithUnits.pg sample problem.

The problem uses the "Units" context, but never activates that context
and selects the units to use.  So the problem fails to render.

Author: drgrice1

lib/Parser/Legacy/NumberWithUnits.pm

@@ -445,6 +445,7 @@ sub compare {
 	my ($self, $other, $flag) = @_;
 	$other = $self->promote($other);
 
+	warn $other->{units_ref}{factor} / $self->{units_ref}{factor};
 	my $adjusted = $other->value * uc($other->{units_ref}{factor} / $self->{units_ref}{factor});
 	my $ret      = $self->value->compare($adjusted, $flag);
 	$ret = ($self->{units} cmp $other->{units}) * ($flag ? -1 : 1)

tutorial/sample-problems/DiffCalc/AnswerWithUnits.pg

@@ -25,13 +25,15 @@ DOCUMENT();
 loadMacros('PGstandard.pl', 'PGML.pl', 'contextUnits.pl', 'PGcourse.pl');
 
 #:% section = setup
-#: First, set the variable for the functions in the problem to be t,
-#: and assign the units "seconds" to it.
+#: First select the "Units" context, allow units for  "length" and "time" in the
+#: context, and set the variable for functions in the context to be `t`.
+#:
+#: Then, assign the units "seconds" to the variable `t`.
 #:
 #: Use the differentiation operator `->D('t')` to compute the derivated, and the
 #: evaluation method `->eval()` to evaluate it as a function. All of these will
 #: now have the expect units.
-Context()->variables->are(t => 'Real');
+Context('Units')->withUnitsFor('length', 'time')->variables->are(t => 'Real');
 Context()->assignUnits(t => 's');
 
 $v0 = random(16, 96, 16);