* 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:
Mikael Djurfeldt 1999-03-11 11:47:22 +00:00
commit dec118c8c7

View file

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