diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-11-02 20:53:58 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-11-02 20:53:58 +0000 |
commit | ecdb5eb2f1007f369d9accd735fd02132111be9f (patch) | |
tree | 370aadd975e744c76c577d5a0b6193689b403f81 | |
parent | 9ee5fce45df0a6d844c8c8c93871690b8491e3a8 (diff) | |
download | guile-ecdb5eb2f1007f369d9accd735fd02132111be9f.tar.gz |
* * procs.c (scm_closure_p): New function.
-rw-r--r-- | libguile/procs.c | 16 |
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) |