* variable.c, threads.c, struct.c, stackchk.c, smob.c, root.c,

[bpt/guile.git] / libguile / coop-pthreads.c

diff --git a/libguile/coop-pthreads.c b/libguile/coop-pthreads.c
index f994170..844db74 100644 (file)
--- a/libguile/coop-pthreads.c
+++ b/libguile/coop-pthreads.c
@@ -142,7 +142,7 @@ thread_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
 {
   scm_copt_thread *t = SCM_THREAD_DATA (exp);
   scm_puts ("#<thread ", port);
-  scm_intprint ((unsigned long)t, 16, port);
+  scm_uintprint ((scm_t_bits)t, 16, port);
   if (t->pthread != -1)
     {
       scm_putc (' ', port);