From 68973b1a516f39d14f9940f5da6324f54af745e7 Mon Sep 17 00:00:00 2001
From: erg <erg@trifocus.net>
Date: Wed, 1 Nov 2006 18:31:42 +0000
Subject: [PATCH] re-add fast>string to win32 io -- don't know where else to
 put it in library/

---
 library/io/windows/stream.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/library/io/windows/stream.factor b/library/io/windows/stream.factor
index bf887ec3ad..9cf9e54950 100644
--- a/library/io/windows/stream.factor
+++ b/library/io/windows/stream.factor
@@ -30,6 +30,10 @@ TUPLE: win32-duplex-stream ;
     dup win32-stream-timeout
     [ millis + swap set-win32-stream-cutoff ] [ drop ] if* ;
 
+: fast>string ( sbuf -- string )
+    dup length over underlying length number=
+    [ underlying ] [ >string ] if ; inline
+
 ! Write
 : flush-output ( stream -- ) 
     dup update-timeout