summaryrefslogtreecommitdiff
path: root/sdl2/surface.scm
diff options
context:
space:
mode:
Diffstat (limited to 'sdl2/surface.scm')
-rw-r--r--sdl2/surface.scm4
1 files 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."