From 723f08ca615e9d9f52345230a086956080fa14a8 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 7 Feb 2009 09:52:34 -0600
Subject: [PATCH] fix buffer-seek
---
basis/io/buffers/buffers.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/basis/io/buffers/buffers.factor b/basis/io/buffers/buffers.factor
index 11fbbf947c..bfb6c08471 100644
--- 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