From b1f855a55f829ed0f57d833f62e558ff329d298c Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 30 Nov 2008 14:23:15 -0600 Subject: [PATCH] Replace one kludge with another --- basis/ui/tools/interactor/interactor.factor | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/basis/ui/tools/interactor/interactor.factor b/basis/ui/tools/interactor/interactor.factor index 0676619b07..51425b124d 100644 --- a/basis/ui/tools/interactor/interactor.factor +++ b/basis/ui/tools/interactor/interactor.factor @@ -81,14 +81,15 @@ M: interactor model-changed : interactor-continue ( obj interactor -- ) mailbox>> mailbox-put ; -: clear-input ( interactor -- ) model>> clear-doc ; +: clear-input ( interactor -- ) + #! The with-datastack is a kludge to make it infer. Stupid. + model>> 1array [ clear-doc ] with-datastack drop ; : interactor-finish ( interactor -- ) - #! The spawn is a kludge to make it infer. Stupid. [ editor-string ] keep [ interactor-input. ] 2keep [ add-interactor-history ] keep - '[ _ clear-input ] "Clearing input" spawn drop ; + clear-input ; : interactor-eof ( interactor -- ) dup interactor-busy? [