[WWcvs] pg: Fixed error in atan2 where second argument was not promoted to a

[dpvc v. a. <we...@ma...>]

Log Message:
-----------
Fixed error in atan2 where second argument was not promoted to a Real.

Modified Files:
--------------
    pg/lib/Value:
        Real.pm

Revision Data
-------------
Index: Real.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Value/Real.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -Llib/Value/Real.pm -Llib/Value/Real.pm -u -r1.18 -r1.19
--- lib/Value/Real.pm
+++ lib/Value/Real.pm
@@ -192,6 +192,8 @@
 
 sub atan2 {
   my ($l,$r,$flag) = @_;
+  if ($l->promotePrecedence($r)) {return $r->atan2($l,!$flag)}
+  $r = promote($r);
   if ($flag) {my $tmp = $l; $l = $r; $r = $l}
   return $pkg->make(CORE::atan2($l->{data}[0],$r->{data}[0]));
 }