1 files changed, 2 insertions, 0 deletions
diff --git a/stream.sml b/stream.sml
index aa8d0aa..cc08d66 100644
--- a/stream.sml
+++ b/stream.sml
@@ -73,6 +73,8 @@ structure Stream :> STREAM = struct
 
   fun create fname = createFromInstream fname (TextIO.openIn fname)
 
+  fun createFromString s = createFromInstream s (TextIO.openString s)
+
   fun getOffset ({ off, ... }: t) = off
 
   fun isFirstOnLine ({ contents, ... }: t) off =