Mercurial > hg > octave-nkf

diff scripts/elfun/lcm.m @ 2601:3723512a827a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-01-06 05:43:16 by jwe]
author jwe
date Mon, 06 Jan 1997 05:44:24 +0000
parents b5568c31ee2c
children 8b262e771614
line wrap: on
line diff
--- a/scripts/elfun/lcm.m
+++ b/scripts/elfun/lcm.m
@@ -29,6 +29,11 @@
 
 function l = lcm (a, ...)
 
+  if (nargin == 0)
+    usage ("lcm (a, ...)");
+  endif
+
+  if (nargin > 1)
     va_start;
     for k = 2:nargin;
       a = [a, (va_arg ())];