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

[bpt/guile.git] / libguile / threads.c

diff --git a/libguile/threads.c b/libguile/threads.c
index 297fce5..e6d23dc 100644 (file)
--- a/libguile/threads.c
+++ b/libguile/threads.c
@@ -164,9 +164,9 @@ thread_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
 {
   scm_thread *t = SCM_THREAD_DATA (exp);
   scm_puts ("#<thread ", port);
-  scm_intprint ((unsigned long)t->thread, 10, port);
+  scm_uintprint (t->thread, 10, port);
   scm_puts (" (", port);
-  scm_intprint ((unsigned long)t, 16, port);
+  scm_uintprint ((scm_t_bits)t, 16, port);
   scm_puts (")>", port);
   return 1;
 }