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

[factor.git] / extra / pairs / pairs.factor

diff --git a/extra/pairs/pairs.factor b/extra/pairs/pairs.factor
index 2b19d95833a482ca9b90055791749c60907fc223..201b91e5e7b3f918a88a19731800a48d4ef53c9d 100644 (file)
--- a/extra/pairs/pairs.factor
+++ b/extra/pairs/pairs.factor
@@ -23,7 +23,7 @@ M: pair at*
     ] if-key ; inline
 
 M: pair set-at
-    [ (>>value) ] [
+    [ value<< ] [
         [ set-at ]
         [ [ associate ] dip swap >>hash drop ] if-hash
     ] if-key ; inline