edwin/buffer: Add print procedure.

diff --git a/src/edwin/buffer.scm b/src/edwin/buffer.scm
index 14ac16a067d8c53cd40f974b2f18a26ccacb56c3..8fa83c5e669fab786990883f21c2a2043d0abe8b 100644 (file)
--- a/src/edwin/buffer.scm
+++ b/src/edwin/buffer.scm
@@ -29,7 +29,11 @@ USA.
 (declare (usual-integrations))
 \f
 (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