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

[factor.git] / basis / furnace / chloe-tags / chloe-tags.factor

diff --git a/basis/furnace/chloe-tags/chloe-tags.factor b/basis/furnace/chloe-tags/chloe-tags.factor
index 8a08063595692136dace4aaf9c4f4423fc5b6bf4..a187300960bee07d9bb6be8502fbeb85a041d848 100644 (file)
--- a/basis/furnace/chloe-tags/chloe-tags.factor
+++ b/basis/furnace/chloe-tags/chloe-tags.factor
@@ -143,6 +143,6 @@ CHLOE: button
     {
         [ [ attrs>> chloe-attrs-only ] dip add-tag-attrs ]
         [ [ attrs>> non-chloe-attrs-only ] dip "button" deep-tag-named add-tag-attrs ]
-        [ [ children>> ] dip "button" deep-tag-named (>>children) ]
+        [ [ children>> ] dip "button" deep-tag-named children<< ]
         [ nip ]
     } 2cleave compile-chloe-tag ;