From 1e24294e6dc9d19ae3336229a66bc646018b23d3 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 1 May 2023 08:46:03 -0400
Subject: graphics: buffer: Style improvement for record type printer.

---
 chickadee/graphics/buffer.scm | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/chickadee/graphics/buffer.scm b/chickadee/graphics/buffer.scm
index b18309e..dc3353b 100644
--- a/chickadee/graphics/buffer.scm
+++ b/chickadee/graphics/buffer.scm
@@ -122,16 +122,17 @@
   (data buffer-data set-buffer-data!)
   (stream-cache buffer-stream-cache))
 
-(set-record-type-printer! <buffer>
-                          (lambda (buffer port)
-                            (format port
-                                    "#<buffer id: ~d name: ~s usage: ~s target: ~s length: ~d stride: ~s>"
-                                    (buffer-id buffer)
-                                    (buffer-name buffer)
-                                    (buffer-usage buffer)
-                                    (buffer-target buffer)
-                                    (buffer-length buffer)
-                                    (buffer-stride buffer))))
+(define (print-buffer buffer port)
+  (format port
+          "#<buffer id: ~d name: ~s usage: ~s target: ~s length: ~d stride: ~s>"
+          (buffer-id buffer)
+          (buffer-name buffer)
+          (buffer-usage buffer)
+          (buffer-target buffer)
+          (buffer-length buffer)
+          (buffer-stride buffer)))
+
+(set-record-type-printer! <buffer> print-buffer)
 
 (define null-buffer
   (%make-buffer 0 "null" 0 0 'vertex 'static #f #f))
-- 
cgit v1.2.3