let
is_next_string_stream stream =
match
peek_stream stream
with
Istring
_
->
true
|
_
->
false