From 998308d305e6963d7e8014460ce66f072bf78c15 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Wed, 22 Mar 2000 02:12:35 +0000
Subject: [PATCH] * print.c (scm_iprin1): SCM_PACK/UNPACK corrections.

---
 libguile/print.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libguile/print.c b/libguile/print.c
index 1696a8d85..809c1e002 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -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)