surface: Fix argument name in record type printer.
authorDavid Thompson <dthompson2@worcester.edu>
Thu, 17 Dec 2015 14:08:21 +0000 (09:08 -0500)
committerDavid Thompson <dthompson2@worcester.edu>
Thu, 17 Dec 2015 14:08:21 +0000 (09:08 -0500)
* sdl2/surface.scm (<surface>): s/context/surface/ in record type
  printer.

sdl2/surface.scm

index b0a018b..dee9781 100644 (file)
@@ -37,9 +37,9 @@
 (define-wrapped-pointer-type <surface>
   surface?
   wrap-surface unwrap-surface
-  (lambda (context port)
+  (lambda (surface port)
     (format port "#<surface ~x>"
-            (pointer-address (unwrap-surface context)))))
+            (pointer-address (unwrap-surface surface)))))
 
 (define (delete-surface! surface)
   "Free the memory used by SURFACE."