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 ++++ 2d/repl/repl.scm | 6 ++++-- 2 files changed, 8 insertions(+), 2 deletions(-) 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 diff --git a/2d/repl/repl.scm b/2d/repl/repl.scm index e6077cd..253789d 100644 --- a/2d/repl/repl.scm +++ b/2d/repl/repl.scm @@ -193,9 +193,11 @@ (abort-on-error "parsing expression" (repl-parse repl exp)))))) (run-hook before-eval-hook exp) - ;; Insert thunk into repl-mvar. The + ;; Insert thunk into repl-mvar. The ;; game loop will schedule it and run - ;; it on the next tick. + ;; it on the next tick. We also pass + ;; along the input/output/error ports + ;; and the REPL stack. (put-mvar repl-input-mvar (list -- cgit v1.2.3