Index: mttroot/mtt/bin/trans/m/str2ch.m ================================================================== --- mttroot/mtt/bin/trans/m/str2ch.m +++ mttroot/mtt/bin/trans/m/str2ch.m @@ -17,16 +17,15 @@ % %% $Log$ % %% Revision 1.1 1996/08/30 09:54:44 peter % %% Initial revision % %% % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -implicit_str_to_num_ok = 'true'; -str = abs(str); +implicit_str_to_num_ok = 1; -if (n>0) & (n<=length(str)) - ch = setstr(str(n)); +astr = abs(str); +if (n>0) & (n<=length(str)) & (strcmp(str,'')==0) + ch = setstr(astr(n)); else ch = ''; end;