From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Tue, 5 Jun 2018 17:54:41 +0000 (-0700)
Subject: Print Edwin buffer names.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~6^2~8
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ef9c9ddb74b0cb4b9deef5a28766b951d26ae2d3;p=mit-scheme.git

Print Edwin buffer names.
---

diff --git a/src/edwin/buffer.scm b/src/edwin/buffer.scm
index 29ca8d3bb..eca2e35e7 100644
--- a/src/edwin/buffer.scm
+++ b/src/edwin/buffer.scm
@@ -29,7 +29,11 @@ USA.
 (declare (usual-integrations))
 
 (define-structure (buffer
-		   (constructor %make-buffer (%name %default-directory)))
+		   (constructor %make-buffer (%name %default-directory))
+		   (print-procedure
+		    (standard-print-method 'BUFFER
+		      (lambda (buffer)
+			(list (buffer-name buffer))))))
   %name
   group
   mark-ring