Mercurial > octave-nkf

diff scripts/control/system/sysmult.m @ 3979:e0b7a493e5a8
[project @ 2002-07-10 17:45:34 by jwe]
author: jwe
date: Wed, 10 Jul 2002 17:45:34 +0000
parents: d178e2bbd873
children: 22bd65326ec1
--- a/scripts/control/system/sysmult.m	Fri Jul 05 17:55:11 2002 +0000
+++ b/scripts/control/system/sysmult.m	Wed Jul 10 17:45:34 2002 +0000
@@ -36,7 +36,7 @@
 ## Created: July 1996
 ## updated for variable number of arguments by A. S. Hodel July 1999
 
-function sys = sysmult (...)
+function sys = sysmult (varargin)
 
   if(nargin < 1)
     usage("sysmult: sys = sysmult(Asys{,Bsys,...})");
@@ -44,9 +44,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