bug 14829 fix proposal
[scilab.git] / scilab / modules / overloading / macros / %r_m_p.sci
index 8ed66ec..3e20b08 100644 (file)
@@ -13,5 +13,9 @@
 function [f1] = %r_m_p(r1,p2)
     // r = %r_m_p(r1, p2)  <=> r = r1*p2
     // r1 = rational p2 = polynomial
-    f1 = p2*r1;
+    if size(p2,"*")==1 then
+        f1=p2*r1
+    else
+        f1 = p2.'*r1.';
+    end
 endfunction