Mercurial > hg > octave-lyh

diff scripts/general/randperm.m @ 4030:22bd65326ec1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-08-09 18:58:13 by jwe]
author jwe
date Fri, 09 Aug 2002 19:00:16 +0000
parents 858695b3ed62
children 4c8a2e4e0717
line wrap: on
line diff
--- a/scripts/general/randperm.m
+++ b/scripts/general/randperm.m
@@ -28,7 +28,7 @@
 
 function retval = randperm (n)
 
-  if (nargin == 1 && is_scalar (n) && floor (n) == n)
+  if (nargin == 1 && isscalar (n) && floor (n) == n)
     if (n > 0)
       [junk, retval] = sort (rand (1, n));
     else