[Easycalc-commits] easycalc/mlib slist.c,1.37,1.38

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

Update of /cvsroot/easycalc/easycalc/mlib
In directory sc8-pr-cvs17:/tmp/cvs-serv19827

Modified Files:
	slist.c 
Log Message:
fixed bug

Index: slist.c
===================================================================
RCS file: /cvsroot/easycalc/easycalc/mlib/slist.c,v
retrieving revision 1.37
retrieving revision 1.38
diff -C2 -d -r1.37 -r1.38
*** slist.c	31 May 2007 00:03:37 -0000	1.37
--- slist.c	31 May 2007 14:56:31 -0000	1.38
***************
*** 739,753 ****
  	UInt32 ini,end;
  
! 	if (func->paramcount != 3)
  		return c_badargcount;
  
- 	err = stack_get_val(stack, &end, integer);
- 	if (err) 
- 		return err;
- 
  	err = stack_get_val(stack, &ini, integer);
  	if (err) 
  		return err;
  
  	err = stack_get_val(stack, &lst, list);
  	if (err) 
--- 739,756 ----
  	UInt32 ini,end;
  
! 	if (func->paramcount == 3){
! 		err = stack_get_val(stack, &end, integer);
! 		if (err) 
! 			return err;
! 	}else if (func->paramcount != 2)
  		return c_badargcount;
  
  	err = stack_get_val(stack, &ini, integer);
  	if (err) 
  		return err;
  
+ 	if (func->paramcount == 2)
+ 		end=ini;
+ 	
  	err = stack_get_val(stack, &lst, list);
  	if (err)