mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 14:30:34 +02:00
Code Activity

fix type errors in test suite

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2011-05-15 15:32:50 +02:00
parent 931b4a6ddc
commit 6bc898466b
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
test-suite/standalone/test-num2integral.c
View file

@ -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;
}

2
test-suite/standalone/test-scm-spawn-thread.c
View file

@ -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));
}