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

[factor.git] / basis / circular / circular.factor

diff --git a/basis/circular/circular.factor b/basis/circular/circular.factor
index 0e1fe47fbb658c8e9c4b67d2f9524fb257bc179a..db60bb12075a84eac6a83e30ddc2e51a718714fa 100644 (file)
--- a/basis/circular/circular.factor
+++ b/basis/circular/circular.factor
@@ -25,7 +25,7 @@ M: circular virtual-exemplar seq>> ; inline
 
 : change-circular-start ( n circular -- )
     #! change start to (start + n) mod length
-    circular-wrap (>>start) ; inline
+    circular-wrap start<< ; inline
 
 : rotate-circular ( circular -- )
     [ 1 ] dip change-circular-start ; inline