fix buffer-seek

2009-02-07 09:52:34 -06:00 · 2009-02-07 09:52:34 -06:00 · 723f08ca61
parent ec7356446f
commit 723f08ca61
1 changed files with 1 additions and 1 deletions
--- a/basis/io/buffers/buffers.factor
+++ b/basis/io/buffers/buffers.factor
@ -28,7 +28,7 @@ M: buffer dispose* ptr>> free ;
    fill>> zero? ; inline

 : buffer-seek ( n buffer -- )
-    (>>pos) ; inline
+    0 >>fill 0 >>pos 2drop ; inline

 : buffer-consume ( n buffer -- )
    [ + ] change-pos