# HG changeset patch
# User Rik <rik@octave.org>
# Date 1357337681 28800
# Node ID f59797321a1b33d70909f00442ccf4b827befd37
# Parent  a7d89366d7edf03cfe602c1201c18b38a4fca032
perms.m: Match documentation variable names to function variable names.

* perms.m: Match documentation variable names to function variable names.

diff -r a7d89366d7ed -r f59797321a1b scripts/specfun/perms.m
--- a/scripts/specfun/perms.m	Fri Jan 04 11:41:08 2013 -0800
+++ b/scripts/specfun/perms.m	Fri Jan 04 14:14:41 2013 -0800
@@ -38,17 +38,17 @@
 ## @end example
 ## @end deftypefn
 
-function A = perms (w)
+function A = perms (v)
   if (nargin != 1)
     print_usage ();
   endif
-  v = [1:length(w)]';
-  n = length (v);
+  vidx = [1:length(v)]';
+  n = length (vidx);
 
   if (n == 0)
     p = [];
   else
-    p = v(1);
+    p = vidx(1);
     for j = 2:n
       B = p;
       p = zeros (prod (2:j), n);
@@ -56,13 +56,13 @@
       idx = 1:k;
       for i = j:-1:1
         p(idx,1:i-1) = B(:,1:i-1);
-        p(idx,i) = v(j);
+        p(idx,i) = vidx(j);
         p(idx,i+1:j) = B(:,i:j-1);
         idx += k;
       endfor
     endfor
   endif
-  A = w(p);
+  A = v(p);
 endfunction