From 241918b1deb38feb824a9d6a3c5d303e47857d73 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Tue, 22 Dec 2015 09:12:07 -0500
Subject: surface: Fix convert-surface-format.

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 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sdl2/surface.scm b/sdl2/surface.scm
index 98ddf70..24846c2 100644
--- a/sdl2/surface.scm
+++ b/sdl2/surface.scm
@@ -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))))
-- 
cgit v1.2.3