[MLton-commit] r6211

[Vesa Karvonen]

Fixed conditional.

----------------------------------------------------------------------

U   mltonlib/trunk/org/mlton/vesak/sdl/unstable/detail/sdl.sml

----------------------------------------------------------------------

Modified: mltonlib/trunk/org/mlton/vesak/sdl/unstable/detail/sdl.sml
===================================================================
--- mltonlib/trunk/org/mlton/vesak/sdl/unstable/detail/sdl.sml	2007-11-26 21:11:17 UTC (rev 6210)
+++ mltonlib/trunk/org/mlton/vesak/sdl/unstable/detail/sdl.sml	2007-11-26 21:52:45 UTC (rev 6211)
@@ -9,7 +9,7 @@
 structure SDL :> SDL = struct
    fun raiseError () = raise Fail (ZString.toML' (F_SDL_GetError.f' ()))
    fun checkInt code = if 0 = code then () else raiseError ()
-   fun checkPtr ptr = if C.Ptr.isNull' ptr then ptr else raiseError ()
+   fun checkPtr ptr = if C.Ptr.isNull' ptr then raiseError () else ptr
 
    structure Init = struct
       open Word32Flags