diff options
| author | David Thompson <dthompson@member.fsf.org> | 2013-09-02 17:14:31 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@member.fsf.org> | 2013-09-02 17:14:31 -0400 |
| commit | 582b6be470dd10a80fd8a4a31bce3d92e4b509f2 (patch) | |
| tree | 55378008fa9b0acc69118adbc00c0ddfa41cfa60 /2d/repl/repl.scm | |
| parent | 5e36a594d66c0f5208c97fa1a8e142c0014d172d (diff) | |
Pass along the *repl-stack* fluid so that nested REPLs work right.
Diffstat (limited to '2d/repl/repl.scm')
| -rw-r--r-- | 2d/repl/repl.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/2d/repl/repl.scm b/2d/repl/repl.scm index 58b79e3..e6077cd 100644 --- a/2d/repl/repl.scm +++ b/2d/repl/repl.scm @@ -206,7 +206,8 @@ #:on-error (repl-option-ref repl 'on-error))) (current-input-port) (current-output-port) - (current-error-port))) + (current-error-port) + (fluid-ref *repl-stack*))) ;; Read the results back from ;; game-mvar. Will block until results ;; are available. |