Language change: tuple slot setter words with stack effect ( value object -- ) are...

[factor.git] / extra / ui / gadgets / lists / lists.factor

diff --git a/extra/ui/gadgets/lists/lists.factor b/extra/ui/gadgets/lists/lists.factor
index 06f1de6bc8c05d4c2ba0ae7ef21f95ad28f1501e..249698e8dc11038de050f62bdd39fb1f40d420f9 100644 (file)
--- a/extra/ui/gadgets/lists/lists.factor
+++ b/extra/ui/gadgets/lists/lists.factor
@@ -78,7 +78,7 @@ M: list focusable-child* drop t ;
     dup list-empty? [
         2drop
     ] [
-        [ control-value length rem ] [ (>>index) ] [ ] tri
+        [ control-value length rem ] [ index<< ] [ ] tri
         [ relayout-1 ] [ scroll>selected ] bi
     ] if ;