Don't add empty lines to history
parent
3352b5516a
commit
ffe524feef
|
|
@ -42,7 +42,7 @@ SYMBOL: structured-input
|
||||||
|
|
||||||
: interactor-eval ( string interactor -- )
|
: interactor-eval ( string interactor -- )
|
||||||
dup control-model clear-doc
|
dup control-model clear-doc
|
||||||
2dup interactor-history push-new
|
over empty? [ 2dup interactor-history push-new ] unless
|
||||||
2dup interactor-input.
|
2dup interactor-input.
|
||||||
(interactor-eval) ;
|
(interactor-eval) ;
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue