mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Fix loose typing in `test-scm-spawn-thread.c'.

Browse source 
* test-suite/standalone/test-scm-spawn-thread.c (inner_main): Use
  `SCM2PTR' instead of a cast.
This commit is contained in:
Ludovic Courtès 2012-01-09 01:16:16 +01:00
parent ff1feca9bd
commit 002aab40bc
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,4 +1,4 @@
/* Copyright (C) 2011 Free Software Foundation, Inc. /* Copyright (C) 2011, 2012 Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License * modify it under the terms of the GNU Lesser General Public License
@ -48,7 +48,7 @@ inner_main (void *data)
thread = scm_spawn_thread (thread_main, 0, thread_handler, 0); thread = scm_spawn_thread (thread_main, 0, thread_handler, 0);
timeout = scm_from_unsigned_integer (time (NULL) + 10); 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));
} }