Fix interactor-busy? handling

TODO.txt

@@ -27,7 +27,7 @@
 - inspector where slot values can be changed
 - compiled call traces:
   - should be independent of whenever the runtime was built with
-    -fomit-frame-pointer or not (ppc and amd64)
+    -fomit-frame-pointer on ppc
   - we don't know if signal handlers run with the same stack or not
 - use crc32 instead of modification date in reload-modules
 - models: don't do redundant work

core/ui/text/interactor.factor

@@ -32,12 +32,16 @@ M: interactor graft*
 : add-interactor-history ( str interactor -- )
     over empty? [ 2drop ] [ interactor-history push-new ] if ;
 
+: interactor-continue ( obj interactor -- )
+    t over set-interactor-busy?
+    interactor-continuation schedule-thread-with ;
+
 : interactor-finish ( obj interactor -- )
     [ editor-string ] keep
     [ interactor-input. ] 2keep
     [ add-interactor-history ] keep
     dup control-model clear-doc
-    interactor-continuation continue-with ;
+    interactor-continue ;
 
 : interactor-eval ( interactor -- )
     [
@@ -61,8 +65,7 @@ M: interactor stream-readln
     ] interactor-yield ;
 
 : interactor-call ( quot interactor -- )
-    2dup interactor-input.
-    interactor-continuation schedule-thread-with ;
+    2dup interactor-input. interactor-continue ;
 
 M: interactor stream-read
     swap dup zero?