Mercurial > hg > octave-nkf

diff scripts/specfun/isprime.m @ 7125:f084ba47812b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-08 02:29:23 by jwe]
author jwe
date Thu, 08 Nov 2007 02:29:24 +0000
parents a1dbe9d80eee
children d1cc2e0ddf55
line wrap: on
line diff
--- a/scripts/specfun/isprime.m
+++ b/scripts/specfun/isprime.m
@@ -35,6 +35,11 @@
 ## @end deftypefn
 
 function t = isprime (n)
+
+  if (nargin < 1)
+    print_usage ();
+  endif
+
   if (! isscalar (n))
     nel = numel (n);
     t = n;