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

[factor.git] / basis / xml / data / data.factor

diff --git a/basis/xml/data/data.factor b/basis/xml/data/data.factor
index 419dfbba53bfbcd3ec13512d5063380982bfa26e..1ca0979ca386d4fbd3dded40a980ab5cdc32f3ee 100644 (file)
--- a/basis/xml/data/data.factor
+++ b/basis/xml/data/data.factor
@@ -47,7 +47,7 @@ M: attrs set-at
         2nip set-second
     ] [
         [ assure-name swap 2array ] dip
-        [ alist>> ?push ] keep (>>alist)
+        [ alist>> ?push ] keep alist<<
     ] if* ;
 
 M: attrs assoc-size alist>> length ;