artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

core: Use length__.

Browse source 
* src/mes.c (check_formals): Use length__.
This commit is contained in:
Jan Nieuwenhuizen 2018-04-30 21:17:10 +02:00
parent 664289c50f
commit 3e6319058a
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/mes.c
View file

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