Parent Directory | Revision Log | Patch
revision 1.41 by mvo, Sun Oct 20 22:59:01 2002 UTC | revision 1.42 by mvo, Mon Dec 2 01:00:50 2002 UTC | |
---|---|---|
# | Line 380 | Line 380 |
380 | obj, pos, FUNC_NAME); \ | obj, pos, FUNC_NAME); \ |
381 | } while (0) | } while (0) |
382 | ||
#define SCM_VALIDATE_THREAD(pos, a) SCM_MAKE_VALIDATE_MSG (pos, a, THREADP, "thread") | ||
383 | #define SCM_VALIDATE_THUNK(pos, thunk) \ | #define SCM_VALIDATE_THUNK(pos, thunk) \ |
384 | do { \ | do { \ |
385 | SCM_ASSERT (!SCM_FALSEP (scm_thunk_p (thunk)), thunk, pos, FUNC_NAME); \ | SCM_ASSERT (!SCM_FALSEP (scm_thunk_p (thunk)), thunk, pos, FUNC_NAME); \ |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |