* eval.c, procs.c, procs.h, procprop.c: Renamed getter ->
procedure throughout. * procprop.c (scm_i_procedure_arity), procs.c (scm_thunk_p): Added entry for scm_tc7_pws.
This commit is contained in:
parent
c180dfd39d
commit
dec118c8c7
1 changed files with 3 additions and 0 deletions
|
|
@ -103,6 +103,9 @@ scm_i_procedure_arity (SCM proc)
|
|||
a -= 1;
|
||||
goto loop;
|
||||
#endif
|
||||
case scm_tc7_pws:
|
||||
proc = SCM_PROCEDURE (proc);
|
||||
goto loop;
|
||||
case scm_tcs_closures:
|
||||
proc = SCM_CAR (SCM_CODE (proc));
|
||||
if (SCM_IMP (proc))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue