shithub: sl

Info  •  Files  •  Log  •  Branches

use nelem

--- a/flisp.c

+++ b/flisp.c

@@ -779,7 +779,7 @@

     value_t s5 = Stack[SP-5];

     if (nargs < nreq)

         lerrorf(ArgError, "apply: too few arguments");

-    if (extr > sizeof(args)/sizeof(args[0]))

+    if (extr > nelem(args))

         lerrorf(ArgError, "apply: too many arguments");

     for (i=0; i < extr; i++) args[i] = UNBOUND;

     for (i=nreq; i < nargs; i++) {