game.loop: Fix throwing errors inside game loop.

diff --git a/extra/game/loop/loop.factor b/extra/game/loop/loop.factor
index 5ba5ec60f95e7ce2c78a4ccbd122e015e16c457c..29e649f6f31f99b2b560023b8ff18f3bdd6865d5 100755 (executable)
--- a/extra/game/loop/loop.factor
+++ b/extra/game/loop/loop.factor
@@ -21,13 +21,13 @@ GENERIC: draw* ( tick-slice delegate -- )
 
 DEFER: stop-loop
 
-TUPLE: game-loop-error-state game-loop error ;
+TUPLE: game-loop-error-state error game-loop ;
 
 : ?ui-error ( error -- )
     ui-running? [ ui-error ] [ rethrow ] if ;
 
-: game-loop-error ( game-loop error -- )
-    [ drop stop-loop ] [ \ game-loop-error-state boa ?ui-error ] 2bi ;
+: game-loop-error ( error game-loop -- )
+    [ nip stop-loop ] [ \ game-loop-error-state boa ?ui-error ] 2bi ;
 
 : fps ( fps -- nanos )
     [ 1,000,000,000 ] dip /i ; inline