render: texture: Include id when printing.
authorDavid Thompson <dthompson2@worcester.edu>
Tue, 29 Oct 2019 21:15:30 +0000 (17:15 -0400)
committerDavid Thompson <dthompson2@worcester.edu>
Tue, 29 Oct 2019 21:15:30 +0000 (17:15 -0400)
chickadee/render/texture.scm

index 11785f0..bdb5030 100644 (file)
@@ -84,7 +84,8 @@
 (set-record-type-printer! <texture>
   (lambda (texture port)
     (format port
-            "#<texture region?: ~a x: ~d y: ~d width: ~d height: ~d min-filter: ~a mag-filter: ~a wrap-s: ~a wrap-t: ~a>"
+            "#<texture id: ~d region?: ~a x: ~d y: ~d width: ~d height: ~d min-filter: ~a mag-filter: ~a wrap-s: ~a wrap-t: ~a>"
+            (texture-id texture)
             (texture-region? texture)
             (texture-x texture)
             (texture-y texture)