From 002aab40bc19d5a4c7408b8d49658b438c8b59e0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 9 Jan 2012 01:16:16 +0100 Subject: [PATCH] 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. --- test-suite/standalone/test-scm-spawn-thread.c | 4 ++-- 1 file 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)); }