summaryrefslogtreecommitdiff
path: root/2d/game-loop.scm
diff options
context:
space:
mode:
Diffstat (limited to '2d/game-loop.scm')
-rw-r--r--2d/game-loop.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/2d/game-loop.scm b/2d/game-loop.scm
index 844ddb5..af4966f 100644
--- a/2d/game-loop.scm
+++ b/2d/game-loop.scm
@@ -172,14 +172,17 @@ is the unused accumulator time."
(define (time-left current-time next-time)
(max (floor (- next-time current-time)) 0))
-(define (run-repl-thunk thunk input output error)
+(define (run-repl-thunk thunk input output error stack)
(put-mvar
repl-output-mvar
(with-input-from-port input
(lambda ()
(with-output-to-port output
(lambda ()
- (with-error-to-port error thunk)))))))
+ (with-error-to-port error
+ (lambda ()
+ (with-fluids ((*repl-stack* stack))
+ (thunk))))))))))
(define (run-repl)
"Execute a thunk from the REPL is there is one."