surface: Fix convert-surface-format.
authorDavid Thompson <dthompson2@worcester.edu>
Tue, 22 Dec 2015 14:12:07 +0000 (09:12 -0500)
committerDavid Thompson <dthompson2@worcester.edu>
Tue, 22 Dec 2015 14:12:07 +0000 (09:12 -0500)
Was trying to wrap the wrong thing. -_-

* sdl2/surface.scm (convert-surface-format): Wrap the new pointer, not
the old surface object.  Oops.

sdl2/surface.scm

index 98ddf70..24846c2 100644 (file)
@@ -195,4 +195,4 @@ Valid format types are:
                                              0)))
     (if (null-pointer? ptr)
         (sdl-error "convert-surface-format" "failed to convert surface format")
-        (wrap-surface surface))))
+        (wrap-surface ptr))))