Mercurial > hg > octave-nkf

diff scripts/control/system/sysgroup.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/sysgroup.m
+++ b/scripts/control/system/sysgroup.m
@@ -50,7 +50,7 @@
 ## modified by John Ingram July 1996
 ## A. S. Hodel: modified for variable number of arguments 1999
 
-function sys = sysgroup (...)
+function sys = sysgroup (varargin)
 
   save_emp = empty_list_elements_ok;
   empty_list_elements_ok = 1;
@@ -61,9 +61,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("sysgroup: argument %d is not a data structure",kk);
     endif