graphics: buffer: Style improvement for record type printer.

1 files 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))