mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

* debug.c (debugobj_print): coerce scm_intprint arg 1 to long, not

Browse source 
int.
This commit is contained in:
Rob Browning 2001-09-21 17:50:53 +00:00
parent 8ed5a245b3
commit c22a0f5570
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/debug.c
View file

@ -558,7 +558,7 @@ static int
debugobj_print (SCM obj, SCM port, scm_print_state *pstate SCM_UNUSED) debugobj_print (SCM obj, SCM port, scm_print_state *pstate SCM_UNUSED)
{ {
scm_puts ("#<debug-object ", port); 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); scm_putc ('>', port);
return 1; return 1;
} }