easycalc-commits

[Jorge G. <cl...@us...>]

Update of /cvsroot/easycalc/easycalc/mlib
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv18338

Modified Files:
	slist.c 
Log Message:
fixed crash

Index: slist.c
===================================================================
RCS file: /cvsroot/easycalc/easycalc/mlib/slist.c,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -d -r1.32 -r1.33
*** slist.c	12 Sep 2006 19:40:56 -0000	1.32
--- slist.c	24 Sep 2006 14:18:26 -0000	1.33
***************
*** 743,749 ****
  		return err;
  	
! 	if (intarg == 0 || intarg > lst->size)
  		return c_baddim;
! 	
  	result = lst->item[intarg-1];
  	err = stack_add_val(stack,&result,complex);
--- 743,751 ----
  		return err;
  	
! 	if (intarg == 0 || intarg > lst->size){
! 		list_delete(lst);
  		return c_baddim;
! 	}
! 
  	result = lst->item[intarg-1];
  	err = stack_add_val(stack,&result,complex);