From: dpvc v. a. <we...@ma...> - 2005-02-18 00:21:11
|
Log Message: ----------- Missed one situation when making the previous update. Fixed it. Modified Files: -------------- pg/lib/Value: Formula.pm Revision Data ------------- Index: Formula.pm =================================================================== RCS file: /webwork/cvs/system/pg/lib/Value/Formula.pm,v retrieving revision 1.17 retrieving revision 1.18 diff -Llib/Value/Formula.pm -Llib/Value/Formula.pm -u -r1.17 -r1.18 --- lib/Value/Formula.pm +++ lib/Value/Formula.pm @@ -103,7 +103,7 @@ sub dot { my ($l,$r,$flag) = @_; if ($l->promotePrecedence($r)) {return $r->compare($l,!$flag)} - return bop(@_,'.') if $l->type eq 'Vector' && + return bop('.',@_) if $l->type eq 'Vector' && Value::isValue($r) && $r->type eq 'Vector'; Value::_dot(@_); } |