[system] / trunk / pg / lib / Value / Formula.pm Repository:
ViewVC logotype

Diff of /trunk/pg/lib/Value/Formula.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 3176 Revision 3177
101# Make dot work for vector operands 101# Make dot work for vector operands
102# 102#
103sub dot { 103sub dot {
104 my ($l,$r,$flag) = @_; 104 my ($l,$r,$flag) = @_;
105 if ($l->promotePrecedence($r)) {return $r->compare($l,!$flag)} 105 if ($l->promotePrecedence($r)) {return $r->compare($l,!$flag)}
106 return bop(@_,'.') if $l->type eq 'Vector' && 106 return bop('.',@_) if $l->type eq 'Vector' &&
107 Value::isValue($r) && $r->type eq 'Vector'; 107 Value::isValue($r) && $r->type eq 'Vector';
108 Value::_dot(@_); 108 Value::_dot(@_);
109} 109}
110 110
111############################################ 111############################################

Legend:
Removed from v.3176  
changed lines
  Added in v.3177

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9