M2: builtins.c VALUE
This commit is contained in:
parent
39d6995769
commit
73c5abdcf1
|
@ -60,7 +60,8 @@ builtin_arity (SCM builtin)
|
||||||
FUNCTION
|
FUNCTION
|
||||||
builtin_function (SCM builtin)
|
builtin_function (SCM builtin)
|
||||||
{
|
{
|
||||||
return VALUE (struct_ref_ (builtin, 5));
|
SCM x = struct_ref_ (builtin, 5);
|
||||||
|
return VALUE (x);
|
||||||
}
|
}
|
||||||
|
|
||||||
SCM
|
SCM
|
||||||
|
@ -78,7 +79,8 @@ builtin_printer (SCM builtin)
|
||||||
fdputs ("#<procedure ", __stdout);
|
fdputs ("#<procedure ", __stdout);
|
||||||
display_ (builtin_name (builtin));
|
display_ (builtin_name (builtin));
|
||||||
fdputc (' ', __stdout);
|
fdputc (' ', __stdout);
|
||||||
int arity = VALUE (builtin_arity (builtin));
|
SCM x = builtin_arity (builtin);
|
||||||
|
int arity = VALUE (x);
|
||||||
if (arity == -1)
|
if (arity == -1)
|
||||||
fdputc ('_', __stdout);
|
fdputc ('_', __stdout);
|
||||||
else
|
else
|
||||||
|
|
Loading…
Reference in New Issue