/[gcl]/gcl/o/string.d
ViewVC logotype

Diff of /gcl/o/string.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by camm, Thu Oct 3 05:32:38 2002 UTC revision 1.5 by camm, Fri Oct 4 03:30:34 2002 UTC
# Line 199  object x; Line 199  object x;
199          default:          default:
200                  break;                  break;
201          }          }
202          FEerror("~S cannot be coerced to a string.", 1, x);          vs_push(x);
203            x=wrong_type_argument(sLstring,x);
204            vs_popp;
205          return(Cnil);          return(Cnil);
206  }  }
207    
# Line 223  siLchar_set() Line 225  siLchar_set()
225          check_type_string(&vs_base[0]);          check_type_string(&vs_base[0]);
226          if (type_of(vs_base[1]) != t_fixnum)          if (type_of(vs_base[1]) != t_fixnum)
227                  illegal_index(vs_base[0], vs_base[1]);                  illegal_index(vs_base[0], vs_base[1]);
228          if ((j = fix(vs_base[1])) < 0 || j >= vs_base[0]->st.st_fillp)          if ((j = fix(vs_base[1])) < 0 /* || j >= vs_base[0]->st.st_fillp */)
229                  illegal_index(vs_base[0], vs_base[1]);                  illegal_index(vs_base[0], vs_base[1]);
230          check_type_character(&vs_base[2]);          check_type_character(&vs_base[2]);
231          vs_base[0]->st.st_self[j] = char_code(vs_base[2]);          vs_base[0]->st.st_self[j] = char_code(vs_base[2]);
# Line 515  int c, *bp; Line 517  int c, *bp;
517                  *bp = FALSE;                  *bp = FALSE;
518          } else if (!isDigit(c))          } else if (!isDigit(c))
519                  *bp = TRUE;                  *bp = TRUE;
520            else
521                    *bp = FALSE;
522          return(c);          return(c);
523  }  }
524    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26