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

M2: builtins.c VALUE

This commit is contained in:
Jan Nieuwenhuizen 2019-10-25 14:30:01 +02:00
parent 39d6995769
commit 73c5abdcf1
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/builtins.c
View File

@ -60,7 +60,8 @@ builtin_arity (SCM builtin)
FUNCTION
builtin_function (SCM builtin)
{
return VALUE (struct_ref_ (builtin, 5));
SCM x = struct_ref_ (builtin, 5);
return VALUE (x);
}
SCM
@ -78,7 +79,8 @@ builtin_printer (SCM builtin)
fdputs ("#<procedure ", __stdout);
display_ (builtin_name (builtin));
fdputc (' ', __stdout);
int arity = VALUE (builtin_arity (builtin));
SCM x = builtin_arity (builtin);
int arity = VALUE (x);
if (arity == -1)
fdputc ('_', __stdout);
else