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

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

diff --git a/libguile/continuations.c b/libguile/continuations.c
index c638662..e5c8c02 100644 (file)
--- a/libguile/continuations.c
+++ b/libguile/continuations.c
@@ -83,7 +83,7 @@ continuation_print (SCM obj, SCM port, scm_print_state *state SCM_UNUSED)
   scm_puts ("#<continuation ", port);
   scm_intprint (continuation->num_stack_items, 10, port);
   scm_puts (" @ ", port);
-  scm_intprint (SCM_CELL_WORD_1 (obj), 16, port);
+  scm_uintprint (SCM_CELL_WORD_1 (obj), 16, port);
   scm_putc ('>', port);
   return 1;
 }