mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +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:
/* gloc */
scm_puts ("#@", port);
exp = SCM_CAR (exp - 1);
exp = SCM_GLOC_SYM (exp);
goto taloop;
default:
idef:
@ -349,7 +349,7 @@ taloop:
{
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);
if (SCM_OBJ_CLASS_FLAGS (exp) & SCM_CLASSF_GOOPS)