core: eval-apply: Fix formal_p.
* src/eval-apply.c (formal_p): Return boolean.
This commit is contained in:
parent
f6f88b5b2f
commit
f1444a547c
|
@ -209,9 +209,9 @@ formal_p (SCM x, SCM formals) /*:((internal)) */
|
||||||
if (TYPE (formals) == TSYMBOL)
|
if (TYPE (formals) == TSYMBOL)
|
||||||
{
|
{
|
||||||
if (x == formals)
|
if (x == formals)
|
||||||
return x;
|
return 1;
|
||||||
else
|
else
|
||||||
return cell_f;
|
return 0;
|
||||||
}
|
}
|
||||||
while (TYPE (formals) == TPAIR && CAR (formals) != x)
|
while (TYPE (formals) == TPAIR && CAR (formals) != x)
|
||||||
formals = CDR (formals);
|
formals = CDR (formals);
|
||||||
|
|
Loading…
Reference in New Issue