Mercurial > hg > octave-lyh

diff scripts/control/util/strappend.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 4b61d9e3c73a
children 4c8a2e4e0717
line wrap: on
line diff
--- a/scripts/control/util/strappend.m
+++ b/scripts/control/util/strappend.m
@@ -31,10 +31,10 @@
     error ("suffix must be a single string");
   endif
 
-  retval = list ();
+  retval = {};
 
   for ii = 1:length (strlist)
-    retval(ii) = sprintf ("%s%s", nth (strlist, ii), suffix);
+    retval{ii} = sprintf ("%s%s", strlist{ii}, suffix);
   endfor
 
 endfunction