diff options
Diffstat (limited to 'libguile/print.c')
-rw-r--r-- | libguile/print.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/print.c b/libguile/print.c index 1bd903529..dca8d84df 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -371,7 +371,8 @@ taloop: case scm_tc3_cons_gloc: /* gloc */ scm_puts ("#@", port); - exp = SCM_GLOC_SYM (exp); + exp = scm_module_reverse_lookup (scm_current_module (), + SCM_GLOC_VAR (exp)); goto taloop; case scm_tc3_cons: switch (SCM_TYP7 (exp)) |