From 516eca854406f435af188b9e5c435ec37e607af7 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 5 Jan 2008 16:09:55 -0400 Subject: [PATCH] Fix interactor stack effect inference --- extra/ui/tools/interactor/interactor.factor | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/extra/ui/tools/interactor/interactor.factor b/extra/ui/tools/interactor/interactor.factor index f407cd8470..ae1b61f06c 100755 --- a/extra/ui/tools/interactor/interactor.factor +++ b/extra/ui/tools/interactor/interactor.factor @@ -1,4 +1,4 @@ -! Copyright (C) 2006, 2007 Slava Pestov. +! Copyright (C) 2006, 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: arrays assocs combinators continuations documents ui.tools.workspace hashtables io io.styles kernel math @@ -74,10 +74,11 @@ M: interactor model-changed : clear-input ( interactor -- ) gadget-model clear-doc ; : interactor-finish ( interactor -- ) + #! The in-thread is a kludge to make it infer. Stupid. [ editor-string ] keep [ interactor-input. ] 2keep [ add-interactor-history ] keep - clear-input ; + [ clear-input ] curry in-thread ; : interactor-eof ( interactor -- ) dup interactor-busy? [