From ee826bae22c7fd1bd62d49752552a6adb44b9c1c Mon Sep 17 00:00:00 2001
From: Neil Jerram <neil@ossau.uklinux.net>
Date: Sat, 12 Aug 2000 22:18:04 +0000
Subject: [PATCH] Docstring updated so that make-soft-port example is correct.

---
 libguile/ChangeLog | 3 +++
 libguile/vports.c  | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index b8761c918..b15492ffe 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,5 +1,8 @@
 2000-08-12  Neil Jerram  <neil@ossau.uklinux.net>
 
+	* vports.c (s_scm_make_soft_port): Docstring updated so that
+	example is correct.
+
 	* strop.c: Docstring fixes - quotation marks and backslashes
 	needed quoting.
 
diff --git a/libguile/vports.c b/libguile/vports.c
index 264c1c032..d36888606 100644
--- a/libguile/vports.c
+++ b/libguile/vports.c
@@ -175,7 +175,7 @@ SCM_DEFINE (scm_make_soft_port, "make-soft-port", 2, 0, 0,
 	    "            (lambda () (char-upcase (read-char)))\n"
 	    "            (lambda () (display \"@@\" stdout)))\n"
 	    "           \"rw\"))\n\n"
-	    "(write p p) @result{} #<input-output-soft#\space45d10#\>\n"
+	    "(write p p) @result{} #<input-output: soft 8081e20>\n"
 	    "@end example")
 #define FUNC_NAME s_scm_make_soft_port
 {