From 1e8f77cd7ba21832a00ae9ab754d08424bd0d21c Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Sun, 27 Jul 1997 09:09:54 +0000
Subject: [PATCH] * struct.c (scm_print_struct): Use scm_printer_apply to call
 the user defined struct printer.

---
 libguile/struct.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/libguile/struct.c b/libguile/struct.c
index 4c437e29a..ecd1e875d 100644
--- a/libguile/struct.c
+++ b/libguile/struct.c
@@ -606,7 +606,7 @@ scm_print_struct (exp, port, pstate)
 {
   SCM prt = SCM_CDR (struct_printer_var);
   if (SCM_FALSEP(prt) ||
-      SCM_FALSEP(scm_apply (prt, exp, scm_cons (port, scm_listofnull))))
+      SCM_FALSEP(scm_printer_apply (prt, exp, port, pstate)))
     {
       scm_gen_write (scm_regular_string, "#<struct ", sizeof ("#<struct ") - 1,
 		     port);
@@ -624,4 +624,3 @@ scm_init_struct ()
   struct_printer_var = scm_sysintern("*struct-printer*", SCM_BOOL_F);
 #include "struct.x"
 }
-