Don't add empty lines to history

2006-11-05 01:53:52 +00:00 · 2006-11-05 01:53:52 +00:00 · ffe524feef
parent 3352b5516a
commit ffe524feef
1 changed files with 1 additions and 1 deletions
--- a/library/ui/text/interactor.factor
+++ b/library/ui/text/interactor.factor
@ -42,7 +42,7 @@ SYMBOL: structured-input

 : interactor-eval ( string interactor -- )
    dup control-model clear-doc
-    2dup interactor-history push-new
+    over empty? [ 2dup interactor-history push-new ] unless
    2dup interactor-input.
    (interactor-eval) ;