From d682d572e2df301fc81f16d48cffedbb62413966 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 11 May 2008 17:43:17 -0500
Subject: [PATCH] Add read-partial word

---
 core/io/io.factor | 1 +
 1 file changed, 1 insertion(+)

diff --git a/core/io/io.factor b/core/io/io.factor
index 6bad8331db..522e767f98 100755
--- a/core/io/io.factor
+++ b/core/io/io.factor
@@ -39,6 +39,7 @@ SYMBOL: error-stream
 : read1 ( -- ch/f ) input-stream get stream-read1 ;
 : read ( n -- str/f ) input-stream get stream-read ;
 : read-until ( seps -- str/f sep/f ) input-stream get stream-read-until ;
+: read-partial ( n -- str/f ) input-stream get stream-read-partial ;
 
 : write1 ( ch -- ) output-stream get stream-write1 ;
 : write ( str -- ) output-stream get stream-write ;