From 3e6319058a1733e9fe55c3154171808a6aadc747 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Mon, 30 Apr 2018 21:17:10 +0200
Subject: [PATCH] core: Use length__.

* src/mes.c (check_formals): Use length__.
---
 src/mes.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/mes.c b/src/mes.c
index c33b88d7..d8cc4bd4 100644
--- 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: ";