[Octave-cvsupdate] octave-forge/main/io append_save.m,1.1,1.2

[Paul K. <pki...@us...>]

Update of /cvsroot/octave/octave-forge/main/io
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19391/main/io

Modified Files:
	append_save.m 
Log Message:
[for Bill Denney] isstr -> ischar


Index: append_save.m
===================================================================
RCS file: /cvsroot/octave/octave-forge/main/io/append_save.m,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- append_save.m	7 Nov 2003 22:45:17 -0000	1.1
+++ append_save.m	8 Sep 2005 02:00:17 -0000	1.2
@@ -48,9 +48,9 @@
 
   if ( nargin < 3 )
     error("append_save: needs three arguments.");
-  elseif ( !isstr(filename) )
+  elseif ( !ischar(filename) )
     error("append_save: filename must be a string.");
-  elseif ( !isstr(option) )
+  elseif ( !ischar(option) )
     error("append_save: option must be a string." );
   elseif ( !iscell(var_val_cell) )
     error("append_save: variable-value pairs must be cells.")
@@ -62,7 +62,7 @@
       elseif ( ( columns( current_cell ) != 2 ) 
 	        || ( rows( current_cell ) != 1 ) )
 	error("append_save: variable-value pairs must be 1x2 cells.")
-      elseif ( !isstr(current_cell{1} ) )
+      elseif ( !ischar(current_cell{1} ) )
 	error("append_save: variable in pair must be a string." )
       endif
     endfor
@@ -165,4 +165,4 @@
 	   filename, " ", var_str; ] );
 
 endfunction
-	   
\ No newline at end of file
+