Mercurial > hg > octave-nkf

diff scripts/general/isdir.m @ 12604:132c89bb44e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Refactor general/isXXX.m scripts to put input validation first. * general/isdir.m, general/isequal.m, general/isequalwithequalnans.m, general/isscalar.m, general/issquare.m, general/isvector.m: Refactor code to put input validation first. * general/iscolumn.m, general/isrow.m : Remove useless initialization of output variable. * general/isa.m: Add additional tests for various classes.
author Rik <octave@nomad.inbox5.com>
date Wed, 13 Apr 2011 09:32:10 -0700
parents c792872f8942
children 9e7ebbaf69ff
line wrap: on
line diff
--- a/scripts/general/isdir.m
+++ b/scripts/general/isdir.m
@@ -23,10 +23,11 @@
 ## @end deftypefn
 
 function retval = isdir (f)
-  if (nargin == 1)
-    ## Exist returns an integer but isdir should return a logical.
-    retval = (exist (f, "dir") == 7);
-  else
+  if (nargin != 1)
     print_usage ("isdir");
   endif
+
+  ## Exist returns an integer but isdir should return a logical.
+  retval = (exist (f, "dir") == 7);
+
 endfunction