From 6bc898466b7ba398bb8ddf71e2cffb7082de0216 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 15 May 2011 15:32:50 +0200 Subject: [PATCH] fix type errors in test suite * test-suite/standalone/test-num2integral.c (out_of_range_handler): Fix SCM used as a truth value. * test-suite/standalone/test-scm-spawn-thread.c (inner_main): Use SCM2PTR here. --- test-suite/standalone/test-num2integral.c | 3 ++- test-suite/standalone/test-scm-spawn-thread.c | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/test-suite/standalone/test-num2integral.c b/test-suite/standalone/test-num2integral.c index 6a44fb75a..7ef96fc20 100644 --- a/test-suite/standalone/test-num2integral.c +++ b/test-suite/standalone/test-num2integral.c @@ -33,7 +33,8 @@ SCM call_num2ulong_long_body (void *data); SCM out_of_range_handler (void *data, SCM key, SCM args) { - assert (scm_equal_p (key, scm_from_locale_symbol ("out-of-range"))); + assert (scm_is_true + (scm_equal_p (key, scm_from_locale_symbol ("out-of-range")))); return SCM_BOOL_T; } diff --git a/test-suite/standalone/test-scm-spawn-thread.c b/test-suite/standalone/test-scm-spawn-thread.c index b632ab0fe..aa790cdbb 100644 --- a/test-suite/standalone/test-scm-spawn-thread.c +++ b/test-suite/standalone/test-scm-spawn-thread.c @@ -48,7 +48,7 @@ inner_main (void *data) thread = scm_spawn_thread (thread_main, 0, thread_handler, 0); timeout = scm_from_unsigned_integer (time (NULL) + 10); - return (void *) scm_join_thread_timed (thread, timeout, SCM_BOOL_F); + return SCM2PTR (scm_join_thread_timed (thread, timeout, SCM_BOOL_F)); }