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

core: builtin_p: Prepare for M2-Planet.

Browse source 
* src/builtins.c (builtin_p): Prepare for M2-Planet.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-07-16 19:07:22 +02:00
parent 6f60795489
commit 7a2f85b34b
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/builtins.c
View file

@ -66,7 +66,8 @@ builtin_function (SCM builtin)
SCM SCM
builtin_p (SCM x) builtin_p (SCM x)
{ {
if (TYPE (x) == TSTRUCT && struct_ref_ (x, 2) == cell_symbol_builtin) if (TYPE (x) == TSTRUCT)
if (struct_ref_ (x, 2) == cell_symbol_builtin)
return cell_t; return cell_t;
return cell_f; return cell_f;
} }