From c180dfd39d76ce732f546b660d486ab19d142c68 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Thu, 11 Mar 1999 11:47:10 +0000
Subject: [PATCH] * print.c (scm_iprin1): Removed extraneous space when
 printing procedure-with-setters. * print.c (scm_iprin1): Use
 scm_procedure_name instead of scm_procedure_property for compiled closures. *
 eval.c, print.c (scm_iprin1): Added entries for scm_tc7_pws.

---
 libguile/print.c | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/libguile/print.c b/libguile/print.c
index 0a3f808fa..6b3bb7261 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -609,7 +609,7 @@ taloop:
 	    if (proc == scm_f_gsubr_apply)
 	      {
 		/* Print gsubrs as primitives */
-		SCM name = scm_procedure_property (exp, scm_i_name);
+		SCM name = scm_procedure_name (exp);
 		scm_puts ("#<primitive-procedure", port);
 		if (SCM_NFALSEP (name))
 		  {
@@ -626,6 +626,18 @@ taloop:
 	  }
 	  break;
 #endif
+	case scm_tc7_pws:
+	  scm_puts ("#<procedure-with-setter", port);
+	  {
+	    SCM name = scm_procedure_name (exp);
+	    if (SCM_NFALSEP (name))
+	      {
+		scm_putc (' ', port);
+		scm_puts (SCM_ROCHARS (name), port);
+	      }
+	  }
+	  scm_putc ('>', port);
+	  break;
 	case scm_tc7_contin:
 	  scm_puts ("#<continuation ", port);
 	  scm_intprint (SCM_LENGTH (exp), 10, port);