From 24eb8cca5c998d8e04cf1c386bd0261b0ca8b5b8 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Sat, 26 Aug 2017 09:15:48 -0700
Subject: [PATCH] edwin/buffer: Add print procedure.

---
 src/edwin/buffer.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/edwin/buffer.scm b/src/edwin/buffer.scm
index 14ac16a06..8fa83c5e6 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
+		    (simple-unparser-method 'BUFFER
+		      (lambda (buffer)
+			(list (buffer-name buffer))))))
   %name
   group
   mark-ring
-- 
2.25.1