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

[factor.git] / basis / refs / refs.factor

diff --git a/basis/refs/refs.factor b/basis/refs/refs.factor
index 668cdd65c3dcfdb025dde18c106d416786ebbff4..18b749087cc58542bc8e42b2280f004007dac2ec 100644 (file)
--- a/basis/refs/refs.factor
+++ b/basis/refs/refs.factor
@@ -30,7 +30,7 @@ M: ref delete-ref ref-off ;
 TUPLE: obj-ref obj ;
 C: <obj-ref> obj-ref
 M: obj-ref get-ref obj>> ;
-M: obj-ref set-ref (>>obj) ;
+M: obj-ref set-ref obj<< ;
 INSTANCE: obj-ref ref
 
 TUPLE: var-ref var ;