mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

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

Browse source 
print.c, ports.c, mallocs.c, hooks.c, hashtab.c, fports.c,
guardians.c, filesys.c, coop-pthreads.c, continuations.c: Use
scm_uintprint to print unsigned integers, raw heap words, and
adresses, using a cast to scm_t_bits to turn pointers into
integers.
This commit is contained in:
Marius Vollmer 2004-10-22 15:13:12 +00:00
parent f27d205727
commit 0345e278f4
17 changed files with 26 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/root.c
View file

@ -62,7 +62,7 @@ static int
root_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
{
scm_puts ("#<root ", port);
scm_intprint(SCM_SEQ (SCM_ROOT_STATE (exp) -> rootcont), 16, port);
scm_uintprint(SCM_SEQ (SCM_ROOT_STATE (exp) -> rootcont), 16, port);
scm_putc('>', port);
return 1;
}