# HG changeset patch
# User jwe
# Date 815186841 0
# Node ID b26b206a8994a4447b9adf61e65652cd2dae2637
# Parent  f110a90eb183eaa85da9d01c8a5d9ce66b976ef9
[project @ 1995-11-01 00:47:21 by jwe]

diff -r f110a90eb183 -r b26b206a8994 scripts/polynomial/polyderiv.m
--- a/scripts/polynomial/polyderiv.m	Tue Oct 31 23:55:53 1995 +0000
+++ b/scripts/polynomial/polyderiv.m	Wed Nov 01 00:47:21 1995 +0000
@@ -16,7 +16,7 @@
 # along with Octave; see the file COPYING.  If not, write to the Free
 # Software Foundation, 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 
-function p = polyderiv (p)
+function q = polyderiv (p)
 
 # usage: polyderiv (p)
 #
@@ -38,13 +38,13 @@
 
   lp = length (p);
   if (lp == 1)
-    p = 0;
+    q = 0;
     return;
   elseif (lp == 0)
-    p = [];
+    q = [];
     return;
   end
 
-  p = p (1:(lp-1)) .* [(lp-1):-1:1];
+  q = p (1:(lp-1)) .* [(lp-1):-1:1];
 
 endfunction