shithub: femtolisp

Info  •  Files  •  Log  •  Branches

Argument to abs() is actually long, not int, thus use labs().

--- a/flisp.c

+++ b/flisp.c

@@ -1791,7 +1791,7 @@

             i = GET_INT32(ip); ip+=4;

             n = GET_INT32(ip); ip+=4;

             s = GET_INT32(ip); ip+=4;

-            nargs = process_keys(v, i, n, abs(s)-(i+n), bp, nargs, s<0);

+            nargs = process_keys(v, i, n, labs(s)-(i+n), bp, nargs, s<0);

             NEXT_OP;

 #ifndef USE_COMPUTED_GOTO