game.loop: Rename game-loop-error

db4
Doug Coleman 2013-03-24 09:43:13 -07:00
parent b5d7399060
commit 474805803d
1 changed files with 2 additions and 2 deletions

View File

@ -21,13 +21,13 @@ GENERIC: draw* ( tick-slice delegate -- )
DEFER: stop-loop
TUPLE: game-loop-error game-loop error ;
TUPLE: game-loop-error-state game-loop error ;
: ?ui-error ( error -- )
ui-running? [ ui-error ] [ rethrow ] if ;
: game-loop-error ( game-loop error -- )
[ drop stop-loop ] [ \ game-loop-error boa ?ui-error ] 2bi ;
[ drop stop-loop ] [ \ game-loop-error-state boa ?ui-error ] 2bi ;
: fps ( fps -- nanos )
[ 1,000,000,000 ] dip /i ; inline