From c22a0f55704c7850c25fec56f98eefebae33429a Mon Sep 17 00:00:00 2001
From: Rob Browning <rlb@defaultvalue.org>
Date: Fri, 21 Sep 2001 17:50:53 +0000
Subject: [PATCH] * debug.c (debugobj_print): coerce scm_intprint arg 1 to
 long, not int.

---
 libguile/debug.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/debug.c b/libguile/debug.c
index 49cce42c7..2083e82fd 100644
--- a/libguile/debug.c
+++ b/libguile/debug.c
@@ -558,7 +558,7 @@ static int
 debugobj_print (SCM obj, SCM port, scm_print_state *pstate SCM_UNUSED)
 {
   scm_puts ("#<debug-object ", port);
-  scm_intprint ((int) SCM_DEBUGOBJ_FRAME (obj), 16, port);
+  scm_intprint ((long) SCM_DEBUGOBJ_FRAME (obj), 16, port);
   scm_putc ('>', port);
   return 1;
 }