diff options
| author | David Thompson <dthompson2@worcester.edu> | 2015-12-17 09:08:21 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-12-17 09:08:21 -0500 |
| commit | d17351ee7881ab1a9c7cbefb9ac45e40a75ac63f (patch) | |
| tree | 827a3e99204f07c843515ac3716054f43bf657e2 | |
| parent | 082243021181e6b77be164683d6b0812f6666f54 (diff) | |
surface: Fix argument name in record type printer.
* sdl2/surface.scm (<surface>): s/context/surface/ in record type
printer.
| -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." |