From ed97fad38db1b2ee109d2c3b292271b37b01a117 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Mon, 2 Sep 2013 17:23:38 -0400 Subject: Add some documentation. --- 2d/game-loop.scm | 4 ++++ 1 file changed, 4 insertions(+) (limited to '2d/game-loop.scm') diff --git a/2d/game-loop.scm b/2d/game-loop.scm index af4966f..ab81b5a 100644 --- a/2d/game-loop.scm +++ b/2d/game-loop.scm @@ -170,9 +170,13 @@ is the unused accumulator time." accumulator)) (define (time-left current-time next-time) + "Calculate the delta between NEXT-TIME and CURRENT-TIME. If +NEXT-TIME is less than CURRENT-TIME, 0 is returned." (max (floor (- next-time current-time)) 0)) (define (run-repl-thunk thunk input output error stack) + "Run THUNK with the given REPL STACK. I/O is redirected to the given +INPUT, OUTPUT, and ERROR ports." (put-mvar repl-output-mvar (with-input-from-port input -- cgit v1.2.3