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

* * procs.c (scm_closure_p): New function.

Browse source
This commit is contained in:
Mikael Djurfeldt 1996-11-02 20:53:58 +00:00
parent 9ee5fce45d
commit ecdb5eb2f1
1 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

16
libguile/procs.c
View file

@ -128,6 +128,22 @@ scm_procedure_p (obj)
return SCM_BOOL_F; return SCM_BOOL_F;
} }
SCM_PROC(s_closure_p, "closure?", 1, 0, 0, scm_closure_p);
SCM
scm_closure_p (obj)
SCM obj;
{
if (SCM_NIMP (obj))
switch (SCM_TYP7 (obj))
{
case scm_tcs_closures:
return SCM_BOOL_T;
default: ;
}
return SCM_BOOL_F;
}
#ifdef __STDC__ #ifdef __STDC__
SCM SCM
scm_thunk_p (SCM obj) scm_thunk_p (SCM obj)