Mercurial > hg > octave-nkf

diff scripts/control/system/sysgettype.m @ 4771:b8105302cfe8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-02-16 17:45:50 by jwe]
author jwe
date Mon, 16 Feb 2004 17:45:50 +0000
parents 3e48e60a1f8b
children 48a39e2b2ab7
line wrap: on
line diff
--- a/scripts/control/system/sysgettype.m
+++ b/scripts/control/system/sysgettype.m
@@ -37,7 +37,7 @@
     error ("sysgettype: input sys is not a structure");
   endif
 
-  typestr = list ("tf", "zp", "ss");
-  systype = nth (typestr, sys.sys(1) + 1);
+  typestr = {"tf", "zp", "ss"};
+  systype = typestr{ sys.sys(1) + 1};
 
 endfunction