steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix interactor stack effect inference

db4
Slava Pestov 2008-01-05 16:09:55 -04:00
parent 55efffed6c
commit 516eca8544
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/ui/tools/interactor/interactor.factor
View File

@ -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. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays assocs combinators continuations documents USING: arrays assocs combinators continuations documents
ui.tools.workspace hashtables io io.styles kernel math ui.tools.workspace hashtables io io.styles kernel math
@ -74,10 +74,11 @@ M: interactor model-changed
: clear-input ( interactor -- ) gadget-model clear-doc ; : clear-input ( interactor -- ) gadget-model clear-doc ;
: interactor-finish ( interactor -- ) : interactor-finish ( interactor -- )
#! The in-thread is a kludge to make it infer. Stupid.
[ editor-string ] keep [ editor-string ] keep
[ interactor-input. ] 2keep [ interactor-input. ] 2keep
[ add-interactor-history ] keep [ add-interactor-history ] keep
clear-input ; [ clear-input ] curry in-thread ;
: interactor-eof ( interactor -- ) : interactor-eof ( interactor -- )
dup interactor-busy? [ dup interactor-busy? [