Debugging threads

[factor.git] / extra / ui / tools / interactor / interactor.factor

diff --git a/extra/ui/tools/interactor/interactor.factor b/extra/ui/tools/interactor/interactor.factor
index 734f6cb4b852c25c9bfa308a4991851f013645c0..74fc437e054e8c473118c89c64edaf2f8559d081 100755 (executable)
--- a/extra/ui/tools/interactor/interactor.factor
+++ b/extra/ui/tools/interactor/interactor.factor
@@ -1,9 +1,9 @@
 ! Copyright (C) 2006, 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: arrays assocs combinators continuations documents
-hashtables io io.styles kernel math math.vectors models
-namespaces parser prettyprint quotations sequences strings
-threads listener classes.tuple ui.commands ui.gadgets
+hashtables io io.styles kernel math math.order math.vectors
+models namespaces parser prettyprint quotations sequences
+strings threads listener classes.tuple ui.commands ui.gadgets
 ui.gadgets.editors ui.gadgets.presentations ui.gadgets.worlds
 ui.gestures definitions calendar concurrency.flags
 ui.tools.workspace accessors ;
@@ -71,7 +71,7 @@ M: interactor model-changed
 : interactor-input. ( string interactor -- )
     output>> [
         dup string? [ dup write-input nl ] [ short. ] if
-    ] with-stream* ;
+    ] with-output-stream* ;
 
 : add-interactor-history ( str interactor -- )
     over empty? [ 2drop ] [ interactor-history push-new ] if ;