diff options
Diffstat (limited to 'libguile/coop-threads.c')
-rw-r--r-- | libguile/coop-threads.c | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/libguile/coop-threads.c b/libguile/coop-threads.c index 0d88f7ca4..b3fad95f4 100644 --- a/libguile/coop-threads.c +++ b/libguile/coop-threads.c @@ -236,20 +236,26 @@ scm_call_with_new_thread (argl) { register SCM args = argl; SCM thunk, handler; - SCM_ASSERT (SCM_NIMP (args), argl, SCM_WNA, s_call_with_new_thread); + SCM_ASSERT (SCM_NIMP (args), + scm_makfrom0str (s_call_with_new_thread), + SCM_WNA, NULL); thunk = SCM_CAR (args); SCM_ASSERT (SCM_NFALSEP (scm_thunk_p (thunk)), thunk, SCM_ARG1, s_call_with_new_thread); args = SCM_CDR (args); - SCM_ASSERT (SCM_NIMP (args), argl, SCM_WNA, s_call_with_new_thread); + SCM_ASSERT (SCM_NIMP (args), + scm_makfrom0str (s_call_with_new_thread), + SCM_WNA, NULL); handler = SCM_CAR (args); SCM_ASSERT (SCM_NFALSEP (scm_procedure_p (handler)), handler, SCM_ARG2, s_call_with_new_thread); - SCM_ASSERT (SCM_NULLP (SCM_CDR (args)), argl, SCM_WNA, s_call_with_new_thread); + SCM_ASSERT (SCM_NULLP (SCM_CDR (args)), + scm_makfrom0str (s_call_with_new_thread), + SCM_WNA, NULL); } /* Make new thread. */ |