From 799d541d92a98085353a4727842fdfc576c179a2 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Tue, 15 Jul 2008 02:04:53 -0500 Subject: [PATCH] ui.tools.search-tests: add a missing stack effect --- extra/ui/tools/search/search-tests.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/ui/tools/search/search-tests.factor b/extra/ui/tools/search/search-tests.factor index 4a75ebfc96..34e1823a42 100755 --- a/extra/ui/tools/search/search-tests.factor +++ b/extra/ui/tools/search/search-tests.factor @@ -10,7 +10,7 @@ IN: ui.tools.search.tests T{ key-down f { C+ } "x" } swap search-gesture ] unit-test -: assert-non-empty empty? f assert= ; +: assert-non-empty ( obj -- ) empty? f assert= ; : update-live-search ( search -- seq ) dup [