shithub: femtolisp

Info  •  Files  •  Log  •  Branches

fix two warnings

--- a/flisp.c

+++ b/flisp.c

@@ -1223,7 +1223,7 @@

 			if(isvector(v)){

 				e = Stack[SP-1];

 				i = isfixnum(e) ? numval(e) : (uint32_t)toulong(e);

-				if(i < 0 || i >= vector_size(v))

+				if(i >= vector_size(v))

 					bounds_error(v, e);

 				v = vector_elt(v, i);

 			}else if(isarray(v)){

@@ -1586,7 +1586,7 @@

 			e = Stack[SP-3];

 			if(isvector(e)){

 				i = tofixnum(Stack[SP-2]);

-				if(i < 0 || i >= vector_size(e))

+				if(i >= vector_size(e))

 					bounds_error(v, Stack[SP-1]);

 				vector_elt(e, i) = (v = Stack[SP-1]);

 			}else if(isarray(e)){