Fix load error in game.loop

diff --git a/extra/game/loop/loop-docs.factor b/extra/game/loop/loop-docs.factor
index 6dbef3044271818ddc5ca9b5fa0dd75709ed2092..c42e39e17ba345aa6dc4c6adf1d314e527cff6a9 100644 (file)
--- a/extra/game/loop/loop-docs.factor
+++ b/extra/game/loop/loop-docs.factor
@@ -26,22 +26,6 @@ $nl
 
 { <game-loop> <game-loop*> } related-words
 
-HELP: benchmark-frames-per-second
-{ $values
-    { "loop" game-loop }
-    { "n" float }
-}
-{ $description "Returns the average number of times per second the game loop has called " { $link draw* } " on its delegate since the game loop was started with " { $link start-loop } "." } ;
-
-HELP: benchmark-ticks-per-second
-{ $values
-    { "loop" game-loop }
-    { "n" float }
-}
-{ $description "Returns the average number of times per second the game loop has called " { $link tick* } " on its tick delegate since the game loop was started." } ;
-
-{ benchmark-frames-per-second benchmark-ticks-per-second } related-words
-
 HELP: draw*
 { $values
     { "tick-slice" float } { "delegate" "a " { $link "game.loop-delegates" } }
@@ -103,11 +87,6 @@ ARTICLE: "game.loop" "Game loops"
     start-loop
     stop-loop
 }
-"The game loop maintains performance counters:"
-{ $subsections
-    benchmark-frames-per-second
-    benchmark-ticks-per-second
-}
 "The game loop catches errors that occur in the delegate's methods during the course of the game loop:"
 { $subsections
     game-loop-error

diff --git a/extra/game/loop/loop.factor b/extra/game/loop/loop.factor
index 48f9ca83eaded0eaeb97ecbc746167f8c0250e80..8fc3fc232eb979b8311ac1c4a770207ca633aa21 100644 (file)
--- a/extra/game/loop/loop.factor
+++ b/extra/game/loop/loop.factor
@@ -88,12 +88,6 @@ TUPLE: game-loop-error game-loop error ;
 
 PRIVATE>
 
-! : benchmark-ticks-per-second ( loop -- n )
-    ! [ tick#>> ] [ benchmark-tick#>> - ] [ benchmark-nanos ] tri /f ;
-
-! : benchmark-frames-per-second ( loop -- n )
-    ! [ frame#>> ] [ benchmark-frame#>> - ] [ benchmark-nanos ] tri /f ;
-
 : (game-tick) ( loop -- )
     dup running?>>
     [ [ MAX-FRAMES-TO-SKIP ?tick ] [ redraw ] bi ]