From 7fbad98d97f545da288153e5e2153c6e10b12968 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 7 May 2008 02:32:58 -0500
Subject: [PATCH] Interactor fix

---
 extra/ui/tools/interactor/interactor-tests.factor | 2 ++
 extra/ui/tools/interactor/interactor.factor       | 5 +++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/extra/ui/tools/interactor/interactor-tests.factor b/extra/ui/tools/interactor/interactor-tests.factor
index 509543a20a..f8d5e33df9 100755
--- a/extra/ui/tools/interactor/interactor-tests.factor
+++ b/extra/ui/tools/interactor/interactor-tests.factor
@@ -8,6 +8,8 @@ tools.test kernel calendar parser accessors ;
 [
     [ ] [ <pane> <pane-stream> <interactor> "interactor" set ] unit-test
 
+    [ ] [ "interactor" get register-self ] unit-test
+
     [ ] [ "[ 1 2 3" "interactor" get set-editor-string ] unit-test
 
     [ ] [ <promise> "promise" set ] unit-test
diff --git a/extra/ui/tools/interactor/interactor.factor b/extra/ui/tools/interactor/interactor.factor
index ffac73d082..2e59363531 100755
--- a/extra/ui/tools/interactor/interactor.factor
+++ b/extra/ui/tools/interactor/interactor.factor
@@ -14,7 +14,9 @@ IN: ui.tools.interactor
 TUPLE: interactor output history flag mailbox thread waiting help ;
 
 : register-self ( interactor -- )
-    self >>thread drop ;
+    <mailbox> >>mailbox
+    self >>thread
+    drop ;
 
 : interactor-continuation ( interactor -- continuation )
     thread>> continuation>> value>> ;
@@ -40,7 +42,6 @@ TUPLE: interactor output history flag mailbox thread waiting help ;
     interactor construct-editor
         V{ } clone >>history
         <flag> >>flag
-        <mailbox> >>mailbox
         dup <help-model> >>help
         swap >>output ;