Mercurial > octave

changeset 28891:de5f2f9a64ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Use same coding style when checking for a minimum of 1 input. * disp.m, __get_properties__.m, disp.m, isplaying.m, pause.m, resume.m, stop.m, __get_properties__.m, disp.m, isrecording.m, pause.m, resume.m, stop.m, mu2lin.m, acosd.m, acot.m, acotd.m, acoth.m, acsc.m, acscd.m, acsch.m, asec.m, asecd.m, asech.m, asind.m, atand.m, cosd.m, cot.m, cotd.m, coth.m, csc.m, cscd.m, csch.m, sec.m, secd.m, sech.m, sind.m, tand.m, cell2mat.m, deg2rad.m, fliplr.m, flipud.m, int2str.m, nextpow2.m, num2str.m, rad2deg.m, subsindex.m, rotx.m, roty.m, rotz.m, voronoin.m, __unimplemented__.m, frame2im.m, hsv2rgb.m, iscolormap.m, __imfinfo__.m, rgb2gray.m, rgb2hsv.m, fileread.m, is_valid_file_id.m, usejava.m, argnames.m, char.m, formula.m, vectorize.m, isdir.m, vectorize.m, condeig.m, duplication_matrix.m, expm.m, isdiag.m, istril.m, istriu.m, normest.m, planerot.m, trace.m, vech.m, fieldnames.m, fileparts.m, grabcode.m, isfile.m, isfolder.m, mustBeFinite.m, mustBeInteger.m, mustBeNegative.m, mustBeNonNan.m, mustBeNonempty.m, mustBeNonnegative.m, mustBeNonpositive.m, mustBeNonsparse.m, mustBeNonzero.m, mustBeNumeric.m, mustBeNumericOrLogical.m, mustBePositive.m, mustBeReal.m, namedargs2cell.m, open.m, run.m, swapbytes.m, pareto.m, allchild.m, colstyle.m, hdl2struct.m, isaxes.m, isfigure.m, ishandle.m, compan.m, poly.m, polyreduce.m, ppjumps.m, roots.m, unmkpp.m, profexplore.m, profile.m, bartlett.m, fftshift.m, hurst.m, ifftshift.m, sinc.m, spencer.m, yulewalker.m, colperm.m, nonzeros.m, spconvert.m, spones.m, sprandsym.m, cosint.m, expint.m, factor.m, factorial.m, isprime.m, perms.m, primes.m, reallog.m, realsqrt.m, sinint.m, gallery.m, hadamard.m, hilb.m, invhilb.m, magic.m, wilkinson.m, center.m, iqr.m, meansq.m, median.m, runlength.m, bin2dec.m, blanks.m, deblank.m, hex2dec.m, isletter.m, isstring.m, str2num.m, strtrim.m, asctime.m, ctime.m: Replace "if (nargin != 1)" formulations with "if (nargin < 1)" to match the rest of Octave.
author Rik <rik@octave.org>
date Sat, 10 Oct 2020 16:32:20 -0700
parents 43e7118c9f2a
children 3cac3ceb9629
files scripts/@ftp/disp.m scripts/audio/@audioplayer/__get_properties__.m scripts/audio/@audioplayer/disp.m scripts/audio/@audioplayer/isplaying.m scripts/audio/@audioplayer/pause.m scripts/audio/@audioplayer/resume.m scripts/audio/@audioplayer/stop.m scripts/audio/@audiorecorder/__get_properties__.m scripts/audio/@audiorecorder/disp.m scripts/audio/@audiorecorder/isrecording.m scripts/audio/@audiorecorder/pause.m scripts/audio/@audiorecorder/resume.m scripts/audio/@audiorecorder/stop.m scripts/audio/mu2lin.m scripts/elfun/acosd.m scripts/elfun/acot.m scripts/elfun/acotd.m scripts/elfun/acoth.m scripts/elfun/acsc.m scripts/elfun/acscd.m scripts/elfun/acsch.m scripts/elfun/asec.m scripts/elfun/asecd.m scripts/elfun/asech.m scripts/elfun/asind.m scripts/elfun/atand.m scripts/elfun/cosd.m scripts/elfun/cot.m scripts/elfun/cotd.m scripts/elfun/coth.m scripts/elfun/csc.m scripts/elfun/cscd.m scripts/elfun/csch.m scripts/elfun/sec.m scripts/elfun/secd.m scripts/elfun/sech.m scripts/elfun/sind.m scripts/elfun/tand.m scripts/general/cell2mat.m scripts/general/deg2rad.m scripts/general/fliplr.m scripts/general/flipud.m scripts/general/int2str.m scripts/general/nextpow2.m scripts/general/num2str.m scripts/general/rad2deg.m scripts/general/subsindex.m scripts/geometry/rotx.m scripts/geometry/roty.m scripts/geometry/rotz.m scripts/geometry/voronoin.m scripts/help/__unimplemented__.m scripts/image/frame2im.m scripts/image/hsv2rgb.m scripts/image/iscolormap.m scripts/image/private/__imfinfo__.m scripts/image/rgb2gray.m scripts/image/rgb2hsv.m scripts/io/fileread.m scripts/io/is_valid_file_id.m scripts/java/usejava.m scripts/legacy/@inline/argnames.m scripts/legacy/@inline/char.m scripts/legacy/@inline/formula.m scripts/legacy/@inline/vectorize.m scripts/legacy/isdir.m scripts/legacy/vectorize.m scripts/linear-algebra/condeig.m scripts/linear-algebra/duplication_matrix.m scripts/linear-algebra/expm.m scripts/linear-algebra/isdiag.m scripts/linear-algebra/istril.m scripts/linear-algebra/istriu.m scripts/linear-algebra/normest.m scripts/linear-algebra/planerot.m scripts/linear-algebra/trace.m scripts/linear-algebra/vech.m scripts/miscellaneous/fieldnames.m scripts/miscellaneous/fileparts.m scripts/miscellaneous/grabcode.m scripts/miscellaneous/isfile.m scripts/miscellaneous/isfolder.m scripts/miscellaneous/mustBeFinite.m scripts/miscellaneous/mustBeInteger.m scripts/miscellaneous/mustBeNegative.m scripts/miscellaneous/mustBeNonNan.m scripts/miscellaneous/mustBeNonempty.m scripts/miscellaneous/mustBeNonnegative.m scripts/miscellaneous/mustBeNonpositive.m scripts/miscellaneous/mustBeNonsparse.m scripts/miscellaneous/mustBeNonzero.m scripts/miscellaneous/mustBeNumeric.m scripts/miscellaneous/mustBeNumericOrLogical.m scripts/miscellaneous/mustBePositive.m scripts/miscellaneous/mustBeReal.m scripts/miscellaneous/namedargs2cell.m scripts/miscellaneous/open.m scripts/miscellaneous/run.m scripts/miscellaneous/swapbytes.m scripts/plot/draw/pareto.m scripts/plot/util/allchild.m scripts/plot/util/colstyle.m scripts/plot/util/hdl2struct.m scripts/plot/util/isaxes.m scripts/plot/util/isfigure.m scripts/plot/util/ishandle.m scripts/polynomial/compan.m scripts/polynomial/poly.m scripts/polynomial/polyreduce.m scripts/polynomial/ppjumps.m scripts/polynomial/roots.m scripts/polynomial/unmkpp.m scripts/profiler/profexplore.m scripts/profiler/profile.m scripts/signal/bartlett.m scripts/signal/fftshift.m scripts/signal/hurst.m scripts/signal/ifftshift.m scripts/signal/sinc.m scripts/signal/spencer.m scripts/signal/yulewalker.m scripts/sparse/colperm.m scripts/sparse/nonzeros.m scripts/sparse/spconvert.m scripts/sparse/spones.m scripts/sparse/sprandsym.m scripts/specfun/cosint.m scripts/specfun/expint.m scripts/specfun/factor.m scripts/specfun/factorial.m scripts/specfun/isprime.m scripts/specfun/perms.m scripts/specfun/primes.m scripts/specfun/reallog.m scripts/specfun/realsqrt.m scripts/specfun/sinint.m scripts/special-matrix/gallery.m scripts/special-matrix/hadamard.m scripts/special-matrix/hilb.m scripts/special-matrix/invhilb.m scripts/special-matrix/magic.m scripts/special-matrix/wilkinson.m scripts/statistics/center.m scripts/statistics/iqr.m scripts/statistics/meansq.m scripts/statistics/median.m scripts/statistics/runlength.m scripts/strings/bin2dec.m scripts/strings/blanks.m scripts/strings/deblank.m scripts/strings/hex2dec.m scripts/strings/isletter.m scripts/strings/isstring.m scripts/strings/str2num.m scripts/strings/strtrim.m scripts/time/asctime.m scripts/time/ctime.m
diffstat 157 files changed, 174 insertions(+), 175 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/@ftp/disp.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/@ftp/disp.m	Sat Oct 10 16:32:20 2020 -0700
@@ -25,7 +25,7 @@
 
 function disp (obj)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/audio/@audioplayer/__get_properties__.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/audio/@audioplayer/__get_properties__.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function props = __get_properties__ (player)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/audio/@audioplayer/disp.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/audio/@audioplayer/disp.m	Sat Oct 10 16:32:20 2020 -0700
@@ -30,7 +30,7 @@
 
 function disp (player)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/audio/@audioplayer/isplaying.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/audio/@audioplayer/isplaying.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function result = isplaying (player)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/audio/@audioplayer/pause.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/audio/@audioplayer/pause.m	Sat Oct 10 16:32:20 2020 -0700
@@ -30,7 +30,7 @@
 
 function pause (player)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/audio/@audioplayer/resume.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/audio/@audioplayer/resume.m	Sat Oct 10 16:32:20 2020 -0700
@@ -30,7 +30,7 @@
 
 function resume (player)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/audio/@audioplayer/stop.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/audio/@audioplayer/stop.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function stop (player)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/audio/@audiorecorder/__get_properties__.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/audio/@audiorecorder/__get_properties__.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function props = __get_properties__ (recorder)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/audio/@audiorecorder/disp.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/audio/@audiorecorder/disp.m	Sat Oct 10 16:32:20 2020 -0700
@@ -30,7 +30,7 @@
 
 function disp (recorder)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/audio/@audiorecorder/isrecording.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/audio/@audiorecorder/isrecording.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function result = isrecording (recorder)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/audio/@audiorecorder/pause.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/audio/@audiorecorder/pause.m	Sat Oct 10 16:32:20 2020 -0700
@@ -30,7 +30,7 @@
 
 function pause (recorder)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/audio/@audiorecorder/resume.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/audio/@audiorecorder/resume.m	Sat Oct 10 16:32:20 2020 -0700
@@ -30,7 +30,7 @@
 
 function resume (recorder)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/audio/@audiorecorder/stop.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/audio/@audiorecorder/stop.m	Sat Oct 10 16:32:20 2020 -0700
@@ -30,7 +30,7 @@
 
 function stop (recorder)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/audio/mu2lin.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/audio/mu2lin.m	Sat Oct 10 16:32:20 2020 -0700
@@ -37,14 +37,14 @@
 
 function y = mu2lin (x, n = 0)
 
-  if (nargin == 2)
-    if (n != 0 && n != 8 && n != 16)
-      error ("mu2lin: N must be either 0, 8, or 16");
-    endif
-  elseif (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
+  if (n != 0 && n != 8 && n != 16)
+    error ("mu2lin: N must be either 0, 8, or 16");
+  endif
+
   ulaw = [32124, 31100, 30076, 29052, 28028, 27004, 25980, 24956, ...
           23932, 22908, 21884, 20860, 19836, 18812, 17788, 16764, ...
           15996, 15484, 14972, 14460, 13948, 13436, 12924, 12412, ...
--- a/scripts/elfun/acosd.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/acosd.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function y = acosd (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/elfun/acot.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/acot.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function y = acot (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/elfun/acotd.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/acotd.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function y = acotd (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/elfun/acoth.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/acoth.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function y = acoth (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/elfun/acsc.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/acsc.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function y = acsc (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/elfun/acscd.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/acscd.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function y = acscd (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/elfun/acsch.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/acsch.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function y = acsch (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/elfun/asec.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/asec.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function y = asec (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/elfun/asecd.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/asecd.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function y = asecd (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/elfun/asech.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/asech.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function y = asech (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/elfun/asind.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/asind.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function y = asind (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/elfun/atand.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/atand.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function y = atand (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/elfun/cosd.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/cosd.m	Sat Oct 10 16:32:20 2020 -0700
@@ -33,7 +33,7 @@
 
 function y = cosd (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/elfun/cot.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/cot.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function y = cot (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/elfun/cotd.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/cotd.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function y = cotd (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/elfun/coth.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/coth.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function y = coth (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/elfun/csc.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/csc.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function y = csc (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/elfun/cscd.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/cscd.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function y = cscd (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/elfun/csch.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/csch.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function y = csch (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/elfun/sec.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/sec.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function y = sec (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/elfun/secd.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/secd.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function y = secd (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/elfun/sech.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/sech.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function y = sech (x)
 
-if (nargin != 1)
+if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/elfun/sind.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/sind.m	Sat Oct 10 16:32:20 2020 -0700
@@ -33,7 +33,7 @@
 
 function y = sind (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/elfun/tand.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/elfun/tand.m	Sat Oct 10 16:32:20 2020 -0700
@@ -34,7 +34,7 @@
 
 function y = tand (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/general/cell2mat.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/general/cell2mat.m	Sat Oct 10 16:32:20 2020 -0700
@@ -36,7 +36,7 @@
 
 function m = cell2mat (c)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/general/deg2rad.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/general/deg2rad.m	Sat Oct 10 16:32:20 2020 -0700
@@ -48,7 +48,7 @@
 
 function rad = deg2rad (deg)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/general/fliplr.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/general/fliplr.m	Sat Oct 10 16:32:20 2020 -0700
@@ -43,7 +43,7 @@
 
 function y = fliplr (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
   y = flip (x, 2);
--- a/scripts/general/flipud.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/general/flipud.m	Sat Oct 10 16:32:20 2020 -0700
@@ -43,7 +43,7 @@
 
 function y = flipud (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
   y = flip (x, 1);
--- a/scripts/general/int2str.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/general/int2str.m	Sat Oct 10 16:32:20 2020 -0700
@@ -60,7 +60,7 @@
 
 function retval = int2str (n)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   elseif (! (isnumeric (n) || islogical (n) || ischar (n)))
     error ("int2str: N must be a numeric, logical, or character array");
--- a/scripts/general/nextpow2.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/general/nextpow2.m	Sat Oct 10 16:32:20 2020 -0700
@@ -41,7 +41,7 @@
 
 function n = nextpow2 (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/general/num2str.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/general/num2str.m	Sat Oct 10 16:32:20 2020 -0700
@@ -80,7 +80,7 @@
 
 function retval = num2str (x, arg)
 
-  if (nargin != 1 && nargin != 2)
+  if (nargin < 1)
     print_usage ();
   elseif (! (isnumeric (x) || islogical (x) || ischar (x)))
     error ("num2str: X must be a numeric, logical, or character array");
--- a/scripts/general/rad2deg.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/general/rad2deg.m	Sat Oct 10 16:32:20 2020 -0700
@@ -48,7 +48,7 @@
 
 function deg = rad2deg (rad)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/general/subsindex.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/general/subsindex.m	Sat Oct 10 16:32:20 2020 -0700
@@ -69,7 +69,7 @@
 
 function idx = subsindex (obj)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/geometry/rotx.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/geometry/rotx.m	Sat Oct 10 16:32:20 2020 -0700
@@ -83,7 +83,7 @@
 
 function retmat = rotx (angle_in_deg)
 
-  if (nargin != 1 || ! isscalar (angle_in_deg))
+  if (nargin < 1 || ! isscalar (angle_in_deg))
     print_usage ();
   endif
 
--- a/scripts/geometry/roty.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/geometry/roty.m	Sat Oct 10 16:32:20 2020 -0700
@@ -83,7 +83,7 @@
 
 function retmat = roty (angle_in_deg)
 
-  if (nargin != 1 || ! isscalar (angle_in_deg))
+  if (nargin < 1 || ! isscalar (angle_in_deg))
     print_usage ();
   endif
 
--- a/scripts/geometry/rotz.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/geometry/rotz.m	Sat Oct 10 16:32:20 2020 -0700
@@ -83,7 +83,7 @@
 
 function retmat = rotz (angle_in_deg)
 
-  if (nargin != 1 || ! isscalar (angle_in_deg))
+  if (nargin < 1 || ! isscalar (angle_in_deg))
     print_usage ();
   endif
 
--- a/scripts/geometry/voronoin.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/geometry/voronoin.m	Sat Oct 10 16:32:20 2020 -0700
@@ -57,7 +57,7 @@
 
 function [C, F] = voronoin (pts, options)
 
-  if (nargin != 1 && nargin != 2)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/help/__unimplemented__.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/help/__unimplemented__.m	Sat Oct 10 16:32:20 2020 -0700
@@ -39,7 +39,7 @@
 
 function txt = __unimplemented__ (fcn)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/image/frame2im.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/image/frame2im.m	Sat Oct 10 16:32:20 2020 -0700
@@ -40,7 +40,7 @@
 
 function [x, map] = frame2im (frame)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   elseif (! all (isfield (frame, {"cdata", "colormap"})))
     error ("frame2im: F must be a struct with the fields colormap and cdata");
--- a/scripts/image/hsv2rgb.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/image/hsv2rgb.m	Sat Oct 10 16:32:20 2020 -0700
@@ -64,7 +64,7 @@
   ## where f_x(hue) is a piecewise defined function for
   ## each color with f_r(hue-2/3) = f_g(hue) = f_b(hue-1/3).
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/image/iscolormap.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/image/iscolormap.m	Sat Oct 10 16:32:20 2020 -0700
@@ -40,7 +40,7 @@
 
 function retval = iscolormap (cmap)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage;
   endif
 
--- a/scripts/image/private/__imfinfo__.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/image/private/__imfinfo__.m	Sat Oct 10 16:32:20 2020 -0700
@@ -30,7 +30,7 @@
 
 function info = __imfinfo__ (filename)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ("imfinfo");
   elseif (! ischar (filename))
     error ("imfinfo: FILENAME must be a string");
--- a/scripts/image/rgb2gray.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/image/rgb2gray.m	Sat Oct 10 16:32:20 2020 -0700
@@ -49,7 +49,7 @@
 
 function I = rgb2gray (rgb)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/image/rgb2hsv.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/image/rgb2hsv.m	Sat Oct 10 16:32:20 2020 -0700
@@ -43,7 +43,7 @@
 
 function hsv = rgb2hsv (rgb)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/io/fileread.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/io/fileread.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function str = fileread (filename)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/io/is_valid_file_id.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/io/is_valid_file_id.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function retval = is_valid_file_id (fid)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/java/usejava.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/java/usejava.m	Sat Oct 10 16:32:20 2020 -0700
@@ -54,7 +54,7 @@
 
 function retval = usejava (feature)
 
-  if (nargin != 1 || ! ischar (feature))
+  if (nargin < 1 || ! ischar (feature))
     print_usage ();
   endif
 
--- a/scripts/legacy/@inline/argnames.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/legacy/@inline/argnames.m	Sat Oct 10 16:32:20 2020 -0700
@@ -32,7 +32,7 @@
 
 function args = argnames (obj)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/legacy/@inline/char.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/legacy/@inline/char.m	Sat Oct 10 16:32:20 2020 -0700
@@ -34,7 +34,7 @@
 
 function expr = char (obj)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/legacy/@inline/formula.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/legacy/@inline/formula.m	Sat Oct 10 16:32:20 2020 -0700
@@ -34,7 +34,7 @@
 
 function expr = formula (obj)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/legacy/@inline/vectorize.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/legacy/@inline/vectorize.m	Sat Oct 10 16:32:20 2020 -0700
@@ -52,7 +52,7 @@
 
 function fcn = vectorize (obj)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/legacy/isdir.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/legacy/isdir.m	Sat Oct 10 16:32:20 2020 -0700
@@ -51,7 +51,7 @@
              "isdir is obsolete; use isfolder or dir_in_loadpath instead\n");
   endif
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/legacy/vectorize.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/legacy/vectorize.m	Sat Oct 10 16:32:20 2020 -0700
@@ -48,7 +48,7 @@
              "vectorize is unreliable; its use is strongly discouraged\n");
   endif
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/linear-algebra/condeig.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/linear-algebra/condeig.m	Sat Oct 10 16:32:20 2020 -0700
@@ -67,7 +67,7 @@
 
 function [v, lambda, c] = condeig (a)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/linear-algebra/duplication_matrix.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/linear-algebra/duplication_matrix.m	Sat Oct 10 16:32:20 2020 -0700
@@ -67,7 +67,7 @@
 
 function d = duplication_matrix (n)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/linear-algebra/expm.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/linear-algebra/expm.m	Sat Oct 10 16:32:20 2020 -0700
@@ -81,7 +81,7 @@
 
 function r = expm (A)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/linear-algebra/isdiag.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/linear-algebra/isdiag.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function retval = isdiag (A)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/linear-algebra/istril.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/linear-algebra/istril.m	Sat Oct 10 16:32:20 2020 -0700
@@ -34,7 +34,7 @@
 
 function retval = istril (A)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/linear-algebra/istriu.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/linear-algebra/istriu.m	Sat Oct 10 16:32:20 2020 -0700
@@ -34,7 +34,7 @@
 
 function retval = istriu (A)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/linear-algebra/normest.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/linear-algebra/normest.m	Sat Oct 10 16:32:20 2020 -0700
@@ -43,7 +43,7 @@
 
 function [nest, iter] = normest (A, tol = 1e-6)
 
-  if (nargin != 1 && nargin != 2)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/linear-algebra/planerot.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/linear-algebra/planerot.m	Sat Oct 10 16:32:20 2020 -0700
@@ -65,7 +65,7 @@
 
 function [G, y] = planerot (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   elseif (! (isvector (x) && numel (x) == 2))
     error ("planerot: X must be a 2-element vector");
--- a/scripts/linear-algebra/trace.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/linear-algebra/trace.m	Sat Oct 10 16:32:20 2020 -0700
@@ -34,7 +34,7 @@
 
 function y = trace (A)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/linear-algebra/vech.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/linear-algebra/vech.m	Sat Oct 10 16:32:20 2020 -0700
@@ -41,7 +41,7 @@
 
 function v = vech (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/miscellaneous/fieldnames.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/miscellaneous/fieldnames.m	Sat Oct 10 16:32:20 2020 -0700
@@ -45,7 +45,7 @@
 
 function names = fieldnames (obj)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/miscellaneous/fileparts.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/miscellaneous/fileparts.m	Sat Oct 10 16:32:20 2020 -0700
@@ -34,7 +34,7 @@
 
 function [dir, name, ext] = fileparts (filename)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/miscellaneous/grabcode.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/miscellaneous/grabcode.m	Sat Oct 10 16:32:20 2020 -0700
@@ -59,7 +59,7 @@
 
 function code_str = grabcode (url)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/miscellaneous/isfile.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/miscellaneous/isfile.m	Sat Oct 10 16:32:20 2020 -0700
@@ -34,7 +34,7 @@
 
 function retval = isfile (f)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/miscellaneous/isfolder.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/miscellaneous/isfolder.m	Sat Oct 10 16:32:20 2020 -0700
@@ -35,7 +35,7 @@
 
 function retval = isfolder (f)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/miscellaneous/mustBeFinite.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/miscellaneous/mustBeFinite.m	Sat Oct 10 16:32:20 2020 -0700
@@ -36,7 +36,7 @@
 
 function mustBeFinite (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/miscellaneous/mustBeInteger.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/miscellaneous/mustBeInteger.m	Sat Oct 10 16:32:20 2020 -0700
@@ -37,7 +37,7 @@
 
 function mustBeInteger (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/miscellaneous/mustBeNegative.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/miscellaneous/mustBeNegative.m	Sat Oct 10 16:32:20 2020 -0700
@@ -36,7 +36,7 @@
 
 function mustBeNegative (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/miscellaneous/mustBeNonNan.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/miscellaneous/mustBeNonNan.m	Sat Oct 10 16:32:20 2020 -0700
@@ -36,7 +36,7 @@
 
 function mustBeNonNan (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/miscellaneous/mustBeNonempty.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/miscellaneous/mustBeNonempty.m	Sat Oct 10 16:32:20 2020 -0700
@@ -36,7 +36,7 @@
 
 function mustBeNonempty (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/miscellaneous/mustBeNonnegative.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/miscellaneous/mustBeNonnegative.m	Sat Oct 10 16:32:20 2020 -0700
@@ -36,7 +36,7 @@
 
 function mustBeNonnegative (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/miscellaneous/mustBeNonpositive.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/miscellaneous/mustBeNonpositive.m	Sat Oct 10 16:32:20 2020 -0700
@@ -36,7 +36,7 @@
 
 function mustBeNonpositive (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/miscellaneous/mustBeNonsparse.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/miscellaneous/mustBeNonsparse.m	Sat Oct 10 16:32:20 2020 -0700
@@ -36,7 +36,7 @@
 
 function mustBeNonsparse (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/miscellaneous/mustBeNonzero.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/miscellaneous/mustBeNonzero.m	Sat Oct 10 16:32:20 2020 -0700
@@ -36,7 +36,7 @@
 
 function mustBeNonzero (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/miscellaneous/mustBeNumeric.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/miscellaneous/mustBeNumeric.m	Sat Oct 10 16:32:20 2020 -0700
@@ -36,7 +36,7 @@
 
 function mustBeNumeric (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/miscellaneous/mustBeNumericOrLogical.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/miscellaneous/mustBeNumericOrLogical.m	Sat Oct 10 16:32:20 2020 -0700
@@ -36,7 +36,7 @@
 
 function mustBeNumericOrLogical (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/miscellaneous/mustBePositive.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/miscellaneous/mustBePositive.m	Sat Oct 10 16:32:20 2020 -0700
@@ -36,7 +36,7 @@
 
 function mustBePositive (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/miscellaneous/mustBeReal.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/miscellaneous/mustBeReal.m	Sat Oct 10 16:32:20 2020 -0700
@@ -36,7 +36,7 @@
 
 function mustBeReal (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/miscellaneous/namedargs2cell.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/miscellaneous/namedargs2cell.m	Sat Oct 10 16:32:20 2020 -0700
@@ -46,10 +46,9 @@
 
 function c = namedargs2cell (s)
 
-  if (nargin != 1 || nargout > 1)
+  if (nargin < 1)
     print_usage ();
-  endif
-  if (! isstruct (s) || ! isscalar (s))
+  elseif (! isstruct (s) || ! isscalar (s))
     error ("namedargs2cell: S must be a scalar structure");
   endif
 
--- a/scripts/miscellaneous/open.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/miscellaneous/open.m	Sat Oct 10 16:32:20 2020 -0700
@@ -73,7 +73,7 @@
 
 function output = open (file)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/miscellaneous/run.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/miscellaneous/run.m	Sat Oct 10 16:32:20 2020 -0700
@@ -47,7 +47,7 @@
 
 function run (script)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/miscellaneous/swapbytes.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/miscellaneous/swapbytes.m	Sat Oct 10 16:32:20 2020 -0700
@@ -42,7 +42,7 @@
 
 function y = swapbytes (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/plot/draw/pareto.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/plot/draw/pareto.m	Sat Oct 10 16:32:20 2020 -0700
@@ -72,7 +72,7 @@
 
   [hax, varargin, nargin] = __plt_get_axis_arg__ ("pareto", varargin{:});
 
-  if (nargin != 1 && nargin != 2)
+  if (nargin < 1 || nargin > 2)
     print_usage ();
   endif
 
--- a/scripts/plot/util/allchild.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/plot/util/allchild.m	Sat Oct 10 16:32:20 2020 -0700
@@ -38,7 +38,7 @@
 
 function h = allchild (handles)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/plot/util/colstyle.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/plot/util/colstyle.m	Sat Oct 10 16:32:20 2020 -0700
@@ -34,7 +34,7 @@
 
 function [l, c, m, msg] = colstyle (style)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/plot/util/hdl2struct.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/plot/util/hdl2struct.m	Sat Oct 10 16:32:20 2020 -0700
@@ -35,7 +35,7 @@
 
 function s = hdl2struct (h)
 
-  if (nargin != 1 || ! ishghandle (h))
+  if (nargin < 1 || ! ishghandle (h))
     print_usage ();
   endif
 
--- a/scripts/plot/util/isaxes.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/plot/util/isaxes.m	Sat Oct 10 16:32:20 2020 -0700
@@ -34,7 +34,7 @@
 
 function retval = isaxes (h)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/plot/util/isfigure.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/plot/util/isfigure.m	Sat Oct 10 16:32:20 2020 -0700
@@ -35,7 +35,7 @@
 
 function retval = isfigure (h)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/plot/util/ishandle.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/plot/util/ishandle.m	Sat Oct 10 16:32:20 2020 -0700
@@ -41,7 +41,7 @@
 
 function retval = ishandle (h)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/polynomial/compan.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/polynomial/compan.m	Sat Oct 10 16:32:20 2020 -0700
@@ -63,7 +63,7 @@
 
 function A = compan (c)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/polynomial/poly.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/polynomial/poly.m	Sat Oct 10 16:32:20 2020 -0700
@@ -57,7 +57,7 @@
 
 function y = poly (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/polynomial/polyreduce.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/polynomial/polyreduce.m	Sat Oct 10 16:32:20 2020 -0700
@@ -32,7 +32,7 @@
 
 function p = polyreduce (c)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   elseif (! isvector (c) || isempty (c))
     error ("polyreduce: C must be a non-empty vector");
--- a/scripts/polynomial/ppjumps.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/polynomial/ppjumps.m	Sat Oct 10 16:32:20 2020 -0700
@@ -34,7 +34,7 @@
 
 function jumps = ppjumps (pp)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/polynomial/roots.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/polynomial/roots.m	Sat Oct 10 16:32:20 2020 -0700
@@ -84,7 +84,7 @@
 
 function r = roots (c)
 
-  if (nargin != 1 || (! isvector (c) && ! isempty (c)))
+  if (nargin < 1 || (! isvector (c) && ! isempty (c)))
     print_usage ();
   elseif (any (! isfinite (c)))
     error ("roots: inputs must not contain Inf or NaN");
--- a/scripts/polynomial/unmkpp.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/polynomial/unmkpp.m	Sat Oct 10 16:32:20 2020 -0700
@@ -74,7 +74,7 @@
 
 function [x, P, n, k, d] = unmkpp (pp)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
   if (! (isstruct (pp) && isfield (pp, "form") && strcmp (pp.form, "pp")))
--- a/scripts/profiler/profexplore.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/profiler/profexplore.m	Sat Oct 10 16:32:20 2020 -0700
@@ -41,7 +41,7 @@
 
   if (nargin == 0)
     data = profile ("info");
-  elseif (nargin != 1)
+  elseif (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/profiler/profile.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/profiler/profile.m	Sat Oct 10 16:32:20 2020 -0700
@@ -68,7 +68,7 @@
 ## Built-in profiler.
 function retval = profile (option)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/signal/bartlett.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/signal/bartlett.m	Sat Oct 10 16:32:20 2020 -0700
@@ -35,7 +35,7 @@
 
 function c = bartlett (m)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/signal/fftshift.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/signal/fftshift.m	Sat Oct 10 16:32:20 2020 -0700
@@ -51,7 +51,7 @@
 
 function retval = fftshift (x, dim)
 
-  if (nargin != 1 && nargin != 2)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/signal/hurst.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/signal/hurst.m	Sat Oct 10 16:32:20 2020 -0700
@@ -33,7 +33,7 @@
 
 function H = hurst (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/signal/ifftshift.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/signal/ifftshift.m	Sat Oct 10 16:32:20 2020 -0700
@@ -35,7 +35,7 @@
 
 function retval = ifftshift (x, dim)
 
-  if (nargin != 1 && nargin != 2)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/signal/sinc.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/signal/sinc.m	Sat Oct 10 16:32:20 2020 -0700
@@ -38,7 +38,7 @@
 
 function result = sinc (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/signal/spencer.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/signal/spencer.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function retval = spencer (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/signal/yulewalker.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/signal/yulewalker.m	Sat Oct 10 16:32:20 2020 -0700
@@ -34,7 +34,7 @@
 
 function [a, v] = yulewalker (c)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/sparse/colperm.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/sparse/colperm.m	Sat Oct 10 16:32:20 2020 -0700
@@ -36,7 +36,7 @@
 
 function p = colperm (s)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/sparse/nonzeros.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/sparse/nonzeros.m	Sat Oct 10 16:32:20 2020 -0700
@@ -31,7 +31,7 @@
 
 function v = nonzeros (A)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/sparse/spconvert.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/sparse/spconvert.m	Sat Oct 10 16:32:20 2020 -0700
@@ -37,7 +37,7 @@
 
 function s = spconvert (m)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/sparse/spones.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/sparse/spones.m	Sat Oct 10 16:32:20 2020 -0700
@@ -33,7 +33,7 @@
 
 function r = spones (S)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/sparse/sprandsym.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/sparse/sprandsym.m	Sat Oct 10 16:32:20 2020 -0700
@@ -39,7 +39,7 @@
 
 function S = sprandsym (n, d)
 
-  if (nargin != 1 && nargin != 2)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/specfun/cosint.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/specfun/cosint.m	Sat Oct 10 16:32:20 2020 -0700
@@ -76,7 +76,7 @@
 
 function y = cosint (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/specfun/expint.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/specfun/expint.m	Sat Oct 10 16:32:20 2020 -0700
@@ -96,7 +96,7 @@
 
 function E1 = expint (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/specfun/factor.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/specfun/factor.m	Sat Oct 10 16:32:20 2020 -0700
@@ -43,7 +43,7 @@
 
 function [pf, n] = factor (q)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/specfun/factorial.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/specfun/factorial.m	Sat Oct 10 16:32:20 2020 -0700
@@ -41,7 +41,7 @@
 
 function x = factorial (n)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   elseif (! isreal (n) || any (n(:) < 0 | n(:) != fix (n(:))))
     error ("factorial: all N must be real non-negative integers");
--- a/scripts/specfun/isprime.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/specfun/isprime.m	Sat Oct 10 16:32:20 2020 -0700
@@ -69,7 +69,7 @@
 
 function t = isprime (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   elseif (any (fix (x) != x))
     error ("isprime: X contains non-integer entries");
--- a/scripts/specfun/perms.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/specfun/perms.m	Sat Oct 10 16:32:20 2020 -0700
@@ -58,7 +58,7 @@
 
 function A = perms (v)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/specfun/primes.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/specfun/primes.m	Sat Oct 10 16:32:20 2020 -0700
@@ -47,7 +47,7 @@
 
 function p = primes (n)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/specfun/reallog.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/specfun/reallog.m	Sat Oct 10 16:32:20 2020 -0700
@@ -34,7 +34,7 @@
 
 function y = reallog (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   elseif (iscomplex (x) || any (x(:) < 0))
     error ("reallog: produced complex result");
--- a/scripts/specfun/realsqrt.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/specfun/realsqrt.m	Sat Oct 10 16:32:20 2020 -0700
@@ -34,7 +34,7 @@
 
 function y = realsqrt (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   elseif (iscomplex (x) || any (x(:) < 0))
     error ("realsqrt: produced complex result");
--- a/scripts/specfun/sinint.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/specfun/sinint.m	Sat Oct 10 16:32:20 2020 -0700
@@ -54,7 +54,7 @@
 
 function y = sinint (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/special-matrix/gallery.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/special-matrix/gallery.m	Sat Oct 10 16:32:20 2020 -0700
@@ -1436,7 +1436,7 @@
   ##   of involutory and of idempotent matrices, Numer. Math. 5 (1963),
   ##   pp. 234-237.
 
-  if (nargin != 1)
+  if (nargin < 1)
     error ("gallery: 1 argument is required for invol matrix.");
   elseif (! isnumeric (n) || ! isscalar (n) || fix (n) != n)
     error ("gallery: N must be an integer for invol matrix.");
@@ -1700,7 +1700,7 @@
   ##   J. Todd, Basic Numerical Mathematics, Vol. 2: Numerical Algebra,
   ##      Birkhauser, Basel, and Academic Press, New York, 1977, p. 154.
 
-  if (nargin != 1)
+  if (nargin < 1)
     error ("gallery: 1 argument is required for lehmer matrix.");
   elseif (! isnumeric (n) || ! isscalar (n) || fix (n) != n)
     error ("gallery: N must be an integer for lehmer matrix.");
@@ -1731,7 +1731,7 @@
   ##        Mathematics, volume 260, Longman Scientific and Technical, Essex,
   ##        UK, 1992, pp. 234-266.
 
-  if (nargin != 1)
+  if (nargin < 1)
     error ("gallery: 1 argument is required for lesp matrix.");
   elseif (! isnumeric (n) || ! isscalar (n) || fix (n) != n)
     error ("gallery: N must be an integer for lesp matrix.");
@@ -1751,7 +1751,7 @@
   ##   Reference:
   ##   M. Lotkin, A set of test matrices, MTAC, 9 (1955), pp. 153-161.
 
-  if (nargin != 1)
+  if (nargin < 1)
     error ("gallery: 1 argument is required for lotkin matrix.");
   elseif (! isnumeric (n) || ! isscalar (n) || fix (n) != n)
     error ("gallery: N must be an integer for lotkin matrix.");
@@ -1779,7 +1779,7 @@
   ##      chemistry---II, Proc. Royal Soc. Edin., 63, A (1952), pp. 232-241.
   ##      (For the eigenvalues of Givens' matrix.)
 
-  if (nargin != 1)
+  if (nargin < 1)
     error ("gallery: 1 argument is required for minij matrix.");
   elseif (! isnumeric (n) || ! isscalar (n) || fix (n) != n)
     error ("gallery: N must be an integer for minij matrix.");
@@ -1826,7 +1826,7 @@
   ##   R.J. Plemmons, Regular splittings and the discrete Neumann
   ##   problem, Numer. Math., 25 (1976), pp. 153-161.
 
-  if (nargin != 1)
+  if (nargin < 1)
     error ("gallery: 1 argument is required for neumann matrix.");
   elseif (! isnumeric (n) || all (numel (n) != [1 2]) || fix (n) != n)
     error ("gallery: N must be a 1 or 2 element integer for neumann matrix.");
@@ -1992,7 +1992,7 @@
   ##   E.E. Tyrtyshnikov, Cauchy-Toeplitz matrices and some applications,
   ##        Linear Algebra and Appl., 149 (1991), pp. 1-18.
 
-  if (nargin != 1)
+  if (nargin < 1)
     error ("gallery: 1 argument is required for parter matrix.");
   elseif (! isnumeric (n) || ! isscalar (n) || fix (n) != n)
     error ("gallery: N must be an integer for parter matrix.");
@@ -2034,7 +2034,7 @@
   ##   Johns Hopkins University Press, Baltimore, Maryland, 1989
   ##   (Section 4.5.4).
 
-  if (nargin != 1)
+  if (nargin < 1)
     error ("gallery: 1 argument is required for poisson matrix.");
   elseif (! isnumeric (n) || ! isscalar (n) || fix (n) != n)
     error ("gallery: N must be an integer for poisson matrix.");
@@ -2095,7 +2095,7 @@
   ##   W.B. Gragg, The QR algorithm for unitary Hessenberg matrices,
   ##   J. Comp. Appl. Math., 16 (1986), pp. 1-8.
 
-  if (nargin != 1)
+  if (nargin < 1)
     error ("gallery: 1 argument is required for randhess matrix.");
   elseif (! isnumeric (x) || ! isreal (x))
     error ("gallery: N or X must be numeric real values for randhess matrix.");
@@ -2305,7 +2305,7 @@
   ##   Spectral Properties of a Matrix of Redheffer,
   ##   Linear Algebra and Appl., 162 (1992), pp. 673-683.
 
-  if (nargin != 1)
+  if (nargin < 1)
     error ("gallery: 1 argument is required for redheff matrix.");
   elseif (! isnumeric (n) || ! isscalar (n) || fix (n) != n)
     error ("gallery: N must be an integer for redheff matrix.");
@@ -2335,7 +2335,7 @@
   ##   F. Roesler, Riemann's hypothesis as an eigenvalue problem,
   ##   Linear Algebra and Appl., 81 (1986), pp. 153-198.
 
-  if (nargin != 1)
+  if (nargin < 1)
     error ("gallery: 1 argument is required for riemann matrix.");
   elseif (! isnumeric (n) || ! isscalar (n) || fix (n) != n)
     error ("gallery: N must be an integer for riemann matrix.");
@@ -2361,7 +2361,7 @@
   ##   Algebra and Function Minimisation, second edition, Adam Hilger,
   ##   Bristol, 1990 (Appendix 1).
 
-  if (nargin != 1)
+  if (nargin < 1)
     error ("gallery: 1 argument is required for ris matrix.");
   elseif (! isnumeric (n) || ! isscalar (n) || fix (n) != n)
     error ("gallery: N must be an integer for ris matrix.");
@@ -2762,7 +2762,7 @@
   ##   J.H. Wilkinson, The Algebraic Eigenvalue Problem, Oxford University
   ##      Press, 1965.
 
-  if (nargin != 1)
+  if (nargin < 1)
     error ("gallery: 1 argument is required for wilk matrix.");
   elseif (! isnumeric (n) || ! isscalar (n))
     error ("gallery: N must be a numeric scalar for wilk matrix.");
--- a/scripts/special-matrix/hadamard.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/special-matrix/hadamard.m	Sat Oct 10 16:32:20 2020 -0700
@@ -67,7 +67,7 @@
 
 function h = hadamard (n)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/special-matrix/hilb.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/special-matrix/hilb.m	Sat Oct 10 16:32:20 2020 -0700
@@ -60,7 +60,7 @@
 
 function retval = hilb (n)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   elseif (! isscalar (n))
     error ("hilb: N must be a scalar integer");
--- a/scripts/special-matrix/invhilb.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/special-matrix/invhilb.m	Sat Oct 10 16:32:20 2020 -0700
@@ -81,7 +81,7 @@
 
 function retval = invhilb (n)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   elseif (! isscalar (n))
     error ("invhilb: N must be a scalar integer");
--- a/scripts/special-matrix/magic.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/special-matrix/magic.m	Sat Oct 10 16:32:20 2020 -0700
@@ -38,7 +38,7 @@
 
 function A = magic (n)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/special-matrix/wilkinson.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/special-matrix/wilkinson.m	Sat Oct 10 16:32:20 2020 -0700
@@ -36,7 +36,7 @@
 
 function retval = wilkinson (n)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/statistics/center.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/statistics/center.m	Sat Oct 10 16:32:20 2020 -0700
@@ -44,7 +44,7 @@
 
 function retval = center (x, dim)
 
-  if (nargin != 1 && nargin != 2)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/statistics/iqr.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/statistics/iqr.m	Sat Oct 10 16:32:20 2020 -0700
@@ -41,7 +41,7 @@
 
 function y = iqr (x, dim)
 
-  if (nargin != 1 && nargin != 2)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/statistics/meansq.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/statistics/meansq.m	Sat Oct 10 16:32:20 2020 -0700
@@ -57,7 +57,7 @@
 
 function y = meansq (x, dim)
 
-  if (nargin != 1 && nargin != 2)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/statistics/median.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/statistics/median.m	Sat Oct 10 16:32:20 2020 -0700
@@ -62,7 +62,7 @@
 
 function retval = median (x, dim)
 
-  if (nargin != 1 && nargin != 2)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/statistics/runlength.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/statistics/runlength.m	Sat Oct 10 16:32:20 2020 -0700
@@ -44,7 +44,7 @@
 
 function [count, value] = runlength (x)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/strings/bin2dec.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/strings/bin2dec.m	Sat Oct 10 16:32:20 2020 -0700
@@ -57,7 +57,7 @@
 
 function d = bin2dec (s)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/strings/blanks.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/strings/blanks.m	Sat Oct 10 16:32:20 2020 -0700
@@ -44,7 +44,7 @@
 
 function s = blanks (n)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   elseif (! (isscalar (n) && n == fix (n) && n >= 0))
     error ("blanks: N must be a non-negative integer");
--- a/scripts/strings/deblank.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/strings/deblank.m	Sat Oct 10 16:32:20 2020 -0700
@@ -47,7 +47,7 @@
 
 function s = deblank (s)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/strings/hex2dec.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/strings/hex2dec.m	Sat Oct 10 16:32:20 2020 -0700
@@ -50,7 +50,7 @@
 
 function d = hex2dec (s)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/strings/isletter.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/strings/isletter.m	Sat Oct 10 16:32:20 2020 -0700
@@ -34,7 +34,7 @@
 
 function retval = isletter (s)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/strings/isstring.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/strings/isstring.m	Sat Oct 10 16:32:20 2020 -0700
@@ -42,7 +42,7 @@
 
 function retval = isstring (s)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/strings/str2num.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/strings/str2num.m	Sat Oct 10 16:32:20 2020 -0700
@@ -55,7 +55,7 @@
 
 function [m, state] = str2num (s)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   elseif (! ischar (s))
     error ("str2num: S must be a string or string array");
--- a/scripts/strings/strtrim.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/strings/strtrim.m	Sat Oct 10 16:32:20 2020 -0700
@@ -49,7 +49,7 @@
 
 function s = strtrim (s)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/time/asctime.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/time/asctime.m	Sat Oct 10 16:32:20 2020 -0700
@@ -43,7 +43,7 @@
 
 function retval = asctime (tm_struct)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif
 
--- a/scripts/time/ctime.m	Sat Oct 10 17:59:19 2020 +0200
+++ b/scripts/time/ctime.m	Sat Oct 10 16:32:20 2020 -0700
@@ -43,7 +43,7 @@
 
 function retval = ctime (t)
 
-  if (nargin != 1)
+  if (nargin < 1)
     print_usage ();
   endif