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

[factor.git] / basis / ui / gadgets / packs / packs.factor

diff --git a/basis/ui/gadgets/packs/packs.factor b/basis/ui/gadgets/packs/packs.factor
index 5f21d74180409e70a3db3b9b94f16a6eae33b281..09a0e222d8bf9d34af10a0024a0d9f836e31c9a4 100644 (file)
--- a/basis/ui/gadgets/packs/packs.factor
+++ b/basis/ui/gadgets/packs/packs.factor
@@ -46,8 +46,8 @@ PRIVATE>
 
 : pack-layout ( pack sizes -- )
     [ round-dims packed-dims ] [ drop ] 2bi
-    [ children>> [ (>>dim) ] 2each ]
-    [ [ packed-locs ] [ children>> ] bi [ (>>loc) ] 2each ] 2bi ;
+    [ children>> [ dim<< ] 2each ]
+    [ [ packed-locs ] [ children>> ] bi [ loc<< ] 2each ] 2bi ;
 
 : <pack> ( orientation -- pack )
     pack new