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

[factor.git] / basis / delegate / delegate.factor

diff --git a/basis/delegate/delegate.factor b/basis/delegate/delegate.factor
index 5c8703116dfbc26330ad4e74284d5f247034c316..5bbd62dfa8c9f0389586c8b52b4c2d11be7c3514 100644 (file)
--- a/basis/delegate/delegate.factor
+++ b/basis/delegate/delegate.factor
@@ -112,7 +112,7 @@ SYNTAX: BROADCAST:
 
 M: consultation where loc>> ;
 
-M: consultation set-where (>>loc) ;
+M: consultation set-where loc<< ;
 
 M: consultation forget*
     [ unconsult-methods ] [ unregister-consult ] bi ;