summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1996-11-02 20:53:58 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1996-11-02 20:53:58 +0000
commitecdb5eb2f1007f369d9accd735fd02132111be9f (patch)
tree370aadd975e744c76c577d5a0b6193689b403f81
parent9ee5fce45df0a6d844c8c8c93871690b8491e3a8 (diff)
downloadguile-ecdb5eb2f1007f369d9accd735fd02132111be9f.tar.gz
* * procs.c (scm_closure_p): New function.
-rw-r--r--libguile/procs.c16
1 files changed, 16 insertions, 0 deletions
diff --git a/libguile/procs.c b/libguile/procs.c
index 5f4324d2d..a8ccd0979 100644
--- a/libguile/procs.c
+++ b/libguile/procs.c
@@ -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)