From 75dccbe3299619e7adfb408f031d99d38d3267de Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 18 Jun 2013 16:24:05 -0700 Subject: [PATCH] game.loop: Fix throwing errors inside game loop. --- extra/game/loop/loop.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/extra/game/loop/loop.factor b/extra/game/loop/loop.factor index 5ba5ec60f9..29e649f6f3 100755 --- 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