From ecdb5eb2f1007f369d9accd735fd02132111be9f Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Sat, 2 Nov 1996 20:53:58 +0000
Subject: [PATCH] *	* procs.c (scm_closure_p): New function.

---
 libguile/procs.c | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

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)