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

Fix stack effects

db4
Slava Pestov 2008-11-21 23:25:19 -06:00
parent e516795a75
commit c0c9855c26
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ui/gadgets/editors/editors.factor
View File

@ -356,7 +356,7 @@ M: editor gadget-text* editor-string % ;
[ drop dup extend-selection dup mark>> click-loc ] [ drop dup extend-selection dup mark>> click-loc ]
[ select-elt ] if ; [ select-elt ] if ;
: insert-newline ( editor -- ) "\n" swap user-input* ; : insert-newline ( editor -- ) "\n" swap user-input* drop ;
: delete-next-character ( editor -- ) : delete-next-character ( editor -- )
T{ char-elt } editor-delete ; T{ char-elt } editor-delete ;

2
basis/ui/tools/interactor/interactor.factor
View File

@ -164,7 +164,7 @@ M: interactor dispose drop ;
: handle-interactive ( lines interactor -- quot/f ? ) : handle-interactive ( lines interactor -- quot/f ? )
tuck try-parse { tuck try-parse {
{ [ dup quotation? ] [ nip t ] } { [ dup quotation? ] [ nip t ] }
{ [ dup not ] [ drop "\n" swap user-input* f f ] } { [ dup not ] [ drop "\n" swap user-input* drop f f ] }
[ handle-parse-error f f ] [ handle-parse-error f f ]
} cond ; } cond ;

2
basis/ui/tools/listener/listener.factor
View File

@ -101,7 +101,7 @@ M: engine-word word-completion-string
: insert-word ( word -- ) : insert-word ( word -- )
get-workspace listener>> input>> get-workspace listener>> input>>
[ >r word-completion-string r> user-input* ] [ >r word-completion-string r> user-input* drop ]
[ interactor-use use-if-necessary ] [ interactor-use use-if-necessary ]
2bi ; 2bi ;