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

* print.c (scm_iprin1): SCM_PACK/UNPACK corrections.

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-03-22 02:12:35 +00:00
parent 890b019c74
commit 998308d305
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/print.c
View file

@ -338,7 +338,7 @@ taloop:
case 1: case 1:
/* gloc */ /* gloc */
scm_puts ("#@", port); scm_puts ("#@", port);
exp = SCM_CAR (exp - 1); exp = SCM_GLOC_SYM (exp);
goto taloop; goto taloop;
default: default:
idef: idef:
@ -349,7 +349,7 @@ taloop:
{ {
case scm_tcs_cons_gloc: case scm_tcs_cons_gloc:
if (SCM_CDR (SCM_CAR (exp) - 1L) == 0) if (SCM_CDR ((SCM) SCM_STRUCT_VTABLE_DATA (exp)) == (SCM) 0)
{ {
ENTER_NESTED_DATA (pstate, exp, circref); ENTER_NESTED_DATA (pstate, exp, circref);
if (SCM_OBJ_CLASS_FLAGS (exp) & SCM_CLASSF_GOOPS) if (SCM_OBJ_CLASS_FLAGS (exp) & SCM_CLASSF_GOOPS)