From f54e9e5376476cd5bbad667f20c22d3004994df1 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 13 Jan 2014 19:00:21 -0500
Subject: Run REPL metacommands in the main thread, too.

* 2d/repl/repl.scm: Fix bug.
---
 2d/repl/repl.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to '2d')

diff --git a/2d/repl/repl.scm b/2d/repl/repl.scm
index 9e56c74..d342e3d 100644
--- a/2d/repl/repl.scm
+++ b/2d/repl/repl.scm
@@ -208,7 +208,13 @@ INPUT, OUTPUT, and ERROR ports."
             ((eq? exp meta-command-token)
              (catch #t
                (lambda ()
-                 (meta-command repl))
+                 (add-to-repl-mvar
+                  (lambda ()
+                    (meta-command repl))
+                  (current-input-port)
+                  (current-output-port)
+                  (current-error-port)
+                  (fluid-ref *repl-stack*)))
                (lambda (k . args)
                  (if (eq? k 'quit)
                      (abort args)
-- 
cgit v1.2.3