From d17351ee7881ab1a9c7cbefb9ac45e40a75ac63f Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 17 Dec 2015 09:08:21 -0500
Subject: surface: Fix argument name in record type printer.

* sdl2/surface.scm (<surface>): s/context/surface/ in record type
  printer.
---
 sdl2/surface.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/sdl2/surface.scm b/sdl2/surface.scm
index b0a018b..dee9781 100644
--- a/sdl2/surface.scm
+++ b/sdl2/surface.scm
@@ -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."
-- 
cgit v1.2.3