HCoop
/
bpt
/
guile.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
2104137
)
boot_closure_print cleanup
author
Andy Wingo
<wingo@pobox.com>
Mon, 24 Oct 2011 15:59:23 +0000
(17:59 +0200)
committer
Andy Wingo
<wingo@pobox.com>
Mon, 24 Oct 2011 16:55:35 +0000
(18:55 +0200)
* libguile/eval.c (boot_closure_print): Get at the bits directly.
libguile/eval.c
patch
|
blob
|
blame
|
history
diff --git
a/libguile/eval.c
b/libguile/eval.c
index
e1d0348
..
f73710a
100644
(file)
--- a/
libguile/eval.c
+++ b/
libguile/eval.c
@@
-914,7
+914,7
@@
boot_closure_print (SCM closure, SCM port, scm_print_state *pstate)
{
SCM args;
scm_puts ("#<boot-closure ", port);
- scm_uintprint (
(scm_t_bits)SCM2PTR
(closure), 16, port);
+ scm_uintprint (
SCM_UNPACK
(closure), 16, port);
scm_putc (' ', port);
args = scm_make_list (scm_from_int (BOOT_CLOSURE_NUM_REQUIRED_ARGS (closure)),
scm_from_latin1_symbol ("_"));