mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 14:50:19 +02:00
Code Activity

* procs.c: New function: scm_thunk_p.

Browse source
This commit is contained in:
Mikael Djurfeldt 1996-10-05 16:50:00 +00:00
parent 4b5166ac27
commit 44bd53b980
1 changed files with 30 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

30
libguile/procs.c
View file

@ -144,6 +144,36 @@ scm_procedure_p (obj)
return SCM_BOOL_F; return SCM_BOOL_F;
} }
#ifdef __STDC__
SCM
scm_thunk_p (SCM obj)
#else
SCM
scm_thunk_p (obj)
SCM obj;
#endif
{
if (SCM_NIMP (obj))
switch (SCM_TYP7 (obj))
{
case scm_tcs_closures:
if (SCM_NULLP (SCM_CAR (SCM_CODE (obj))))
return SCM_BOOL_T;
case scm_tc7_subr_0:
case scm_tc7_subr_1o:
case scm_tc7_lsubr:
case scm_tc7_rpsubr:
case scm_tc7_asubr:
#ifdef CCLO
case scm_tc7_cclo:
#endif
return SCM_BOOL_T;
default:
;
}
return SCM_BOOL_F;
}
#ifdef __STDC__ #ifdef __STDC__
void void