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

[factor.git] / basis / io / streams / limited / limited.factor

diff --git a/basis/io/streams/limited/limited.factor b/basis/io/streams/limited/limited.factor
index f5aab9c97619a5e66ea5cabed0e2735c190b36c7..25f1d88363597ae08385d2c83450e52572428fd9 100644 (file)
--- a/basis/io/streams/limited/limited.factor
+++ b/basis/io/streams/limited/limited.factor
@@ -128,9 +128,9 @@ M: limited-stream stream-read-partial
 
 :: limited-stream-seek ( n seek-type stream -- )
     seek-type {
-        { seek-absolute [ n stream (>>current) ] }
+        { seek-absolute [ n stream current<< ] }
         { seek-relative [ stream [ n + ] change-current drop ] }
-        { seek-end [ stream stop>> n - stream (>>current) ] }
+        { seek-end [ stream stop>> n - stream current<< ] }
         [ bad-seek-type ]
     } case ;