mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-09 21:40:33 +02:00
* * procs.c (scm_closure_p): New function.
This commit is contained in:
parent
9ee5fce45d
commit
ecdb5eb2f1
1 changed files with 16 additions and 0 deletions
|
@ -128,6 +128,22 @@ scm_procedure_p (obj)
|
|||
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__
|
||||
SCM
|
||||
scm_thunk_p (SCM obj)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue