core: Use length__.
authorJan Nieuwenhuizen <janneke@gnu.org>
Mon, 30 Apr 2018 19:17:10 +0000 (21:17 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 30 Apr 2018 19:17:10 +0000 (21:17 +0200)
* src/mes.c (check_formals): Use length__.

src/mes.c

index c33b88d7ae3563aca7c772bd1f7864086575f032..d8cc4bd4a890ad4928f85a2646234f1d08730dcc 100644 (file)
--- a/src/mes.c
+++ b/src/mes.c
@@ -567,8 +567,8 @@ assert_defined (SCM x, SCM e) ///((internal))
 SCM
 check_formals (SCM f, SCM formals, SCM args) ///((internal))
 {
-  int flen = (TYPE (formals) == TNUMBER) ? VALUE (formals) : VALUE (length (formals));
-  int alen = VALUE (length (args));
+  int flen = (TYPE (formals) == TNUMBER) ? VALUE (formals) : length__ (formals);
+  int alen = length__ (args);
   if (alen != flen && alen != -1 && flen != -1)
     {
       char *s = "apply: wrong number of arguments; expected: ";