andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

core: eval-apply: Fix formal_p. 

* src/eval-apply.c (formal_p): Return boolean.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2019-11-03 14:03:10 +01:00
parent 2f38271be2
commit 06e13b8e2d
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/eval-apply.c
View File

@ -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);