See ChangeLog from 2005-03-02.

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

diff --git a/libguile/stackchk.c b/libguile/stackchk.c
index eaedd1c..4382d87 100644 (file)
--- a/libguile/stackchk.c
+++ b/libguile/stackchk.c
@@ -61,19 +61,20 @@ scm_stack_size (SCM_STACKITEM *start)
 void 
 scm_stack_report ()
 {
+  SCM port = scm_current_error_port ();
   SCM_STACKITEM stack;
-  scm_uintprint (scm_stack_size (SCM_BASE (scm_rootcont)) * sizeof (SCM_STACKITEM),
-               16, scm_cur_errp);
-  scm_puts (" of stack: 0x", scm_cur_errp);
-  scm_uintprint ((scm_t_bits) SCM_BASE (scm_rootcont), 16, scm_cur_errp);
-  scm_puts (" - 0x", scm_cur_errp);
-  scm_uintprint ((scm_t_bits) &stack, 16, scm_cur_errp);
-  scm_puts ("\n", scm_cur_errp);
+  scm_i_thread *thread = SCM_I_CURRENT_THREAD;
+
+  scm_uintprint ((scm_stack_size (thread->continuation_base) 
+                 * sizeof (SCM_STACKITEM)),
+                16, port);
+  scm_puts (" of stack: 0x", port);
+  scm_uintprint ((scm_t_bits) thread->continuation_base, 16, port);
+  scm_puts (" - 0x", port);
+  scm_uintprint ((scm_t_bits) &stack, 16, port);
+  scm_puts ("\n", port);
 }
 
-
-
-
 void
 scm_init_stackchk ()
 {