summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-01-09 01:16:16 +0100
committerLudovic Courtès <ludo@gnu.org>2012-01-09 21:23:46 +0100
commit002aab40bc19d5a4c7408b8d49658b438c8b59e0 (patch)
treed3a0734852263099599684d55d3eb8eade30aa2d
parentff1feca9bd6d23b248f4e3eb768a08f7c3aabc1d (diff)
downloadguile-002aab40bc19d5a4c7408b8d49658b438c8b59e0.tar.gz
Fix loose typing in `test-scm-spawn-thread.c'.
* test-suite/standalone/test-scm-spawn-thread.c (inner_main): Use `SCM2PTR' instead of a cast.
-rw-r--r--test-suite/standalone/test-scm-spawn-thread.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/test-suite/standalone/test-scm-spawn-thread.c b/test-suite/standalone/test-scm-spawn-thread.c
index b632ab0fe..f6d561aa1 100644
--- a/test-suite/standalone/test-scm-spawn-thread.c
+++ b/test-suite/standalone/test-scm-spawn-thread.c
@@ -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
* 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);
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));
}