diff options
| -rw-r--r-- | chickadee/graphics/buffer.scm | 21 |
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)) |