Mercurial > hg > octave-nkf

diff scripts/strings/strrep.m @ 5443:ec8c33dcd1bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-09-08 01:40:57 by jwe]
author jwe
date Thu, 08 Sep 2005 01:40:58 +0000
parents 2a16423e4aa0
children 34f96dd5441b
line wrap: on
line diff
--- a/scripts/strings/strrep.m
+++ b/scripts/strings/strrep.m
@@ -38,7 +38,7 @@
     usage ("strrep (s, x, y)");
   endif
 
-  if (! (isstr (s) && isstr (x) && isstr (y)))
+  if (! (ischar (s) && ischar (x) && ischar (y)))
     error ("strrep: all arguments must be strings");
   endif
 
@@ -84,7 +84,7 @@
     repeat = [1:length(x)]' * ones (1, length (ind));
     delete = ones (length (x), 1) * ind + repeat - 1;
     t(delete) = [];
-    t = setstr (t);
+    t = char (t);
   endif
 
 endfunction