diff options
| -rw-r--r-- | sdl2/surface.scm | 4 |
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." |