summaryrefslogtreecommitdiff
path: root/libguile/procs.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/procs.h')
-rw-r--r--libguile/procs.h5
1 files changed, 5 insertions, 0 deletions
diff --git a/libguile/procs.h b/libguile/procs.h
index 51ae441f3..5415f84a4 100644
--- a/libguile/procs.h
+++ b/libguile/procs.h
@@ -34,6 +34,11 @@
SCM_ASSERT (scm_is_true (scm_thunk_p (thunk)), thunk, pos, FUNC_NAME); \
} while (0)
+#define SCM_VALIDATE_PROC(pos, proc) \
+ do { \
+ SCM_ASSERT (scm_is_true (scm_procedure_p (proc)), proc, pos, FUNC_NAME); \
+ } while (0)
+
SCM_API SCM scm_procedure_p (SCM obj);
SCM_API SCM scm_thunk_p (SCM obj);
SCM_API SCM scm_procedure_with_setter_p (SCM obj);