diff options
-rw-r--r-- | test-suite/standalone/test-num2integral.c | 3 | ||||
-rw-r--r-- | 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)); } |