diff options
Diffstat (limited to 'libguile/procs.h')
-rw-r--r-- | libguile/procs.h | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/libguile/procs.h b/libguile/procs.h index c4c78f23e..51ae441f3 100644 --- a/libguile/procs.h +++ b/libguile/procs.h @@ -4,7 +4,7 @@ #define SCM_PROCS_H /* Copyright (C) 1995, 1996, 1998, 1999, 2000, 2001, 2006, 2008, 2009, - * 2012, 2013 Free Software Foundation, Inc. + * 2012, 2013, 2018 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -25,9 +25,15 @@ #include "libguile/__scm.h" +#include <libguile/error.h> +#define SCM_VALIDATE_THUNK(pos, thunk) \ + do { \ + SCM_ASSERT (scm_is_true (scm_thunk_p (thunk)), thunk, 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); |