diff options
author | Ludovic Courtès <ludo@gnu.org> | 2012-01-09 01:16:16 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2012-01-09 21:23:46 +0100 |
commit | 002aab40bc19d5a4c7408b8d49658b438c8b59e0 (patch) | |
tree | d3a0734852263099599684d55d3eb8eade30aa2d /test-suite/standalone/test-scm-spawn-thread.c | |
parent | ff1feca9bd6d23b248f4e3eb768a08f7c3aabc1d (diff) | |
download | guile-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.
Diffstat (limited to 'test-suite/standalone/test-scm-spawn-thread.c')
-rw-r--r-- | test-suite/standalone/test-scm-spawn-thread.c | 4 |
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)); } |