Log Message:
-----------
BACKPORT: Demote Real() results of Formula() evaluations to standard
Perl reals. (Makes graphing more efficient.)
Tags:
----
rel-2-4-patches
Modified Files:
--------------
pg/macros:
PGgraphmacros.pl
Revision Data
-------------
Index: PGgraphmacros.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/PGgraphmacros.pl,v
retrieving revision 1.6.6.1
retrieving revision 1.6.6.1.2.1
diff -Lmacros/PGgraphmacros.pl -Lmacros/PGgraphmacros.pl -u -r1.6.6.1 -r1.6.6.1.2.1
--- macros/PGgraphmacros.pl
+++ macros/PGgraphmacros.pl
@@ -323,10 +323,9 @@
my $localContext= Parser::Context->current(\%main::context)->copy;
$localContext->variables->add($var=>'Real') unless $localContext->variables->get($var);
my $formula = Value->Package("Formula()")->new($localContext,$rule);
- my $subRef = sub {my $x=shift; Parser::Evaluate($formula, $var=>$x)};
+ my $subRef = sub {my $x=shift; Parser::Evaluate($formula, $var=>$x)->value};
#traps errors when
# graph domain is larger than the function's domain.
-
#my $subRef = string_to_sub($rule,$var);
my $funRef = new Fun($subRef,$graph);
$funRef->color($color);
|
