Mercurial > hg > octave-nkf

diff scripts/control/system/sysadd.m @ 3979:e0b7a493e5a8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-07-10 17:45:34 by jwe]
author jwe
date Wed, 10 Jul 2002 17:45:34 +0000
parents b5238ac1dca9
children 22bd65326ec1
line wrap: on
line diff
--- a/scripts/control/system/sysadd.m
+++ b/scripts/control/system/sysadd.m
@@ -43,7 +43,7 @@
 ## Created: July 1996
 ## Updated for variable number of arguments July 1999 A. S. Hodel
 
-function sys = sysadd (...)
+function sys = sysadd (varargin)
 
   if(nargin < 1)
     usage("sysadd: sys = sysysadd(Gsys{,Hsys, ...})");
@@ -51,9 +51,8 @@
 
   ## collect all arguments
   arglist = list();
-  va_start();
   for kk=1:nargin
-    arglist(kk) = va_arg();
+    arglist(kk) = varargin{kk};
     if(!is_struct(nth(arglist,kk)))
       error("sysadd: argument %d is not a data structure",kk);
     endif