lazy strings: remove two type checks.

* lib.c (lazy_str_put, out_lazy_str): The very few calls to
these functions already ensure that the object is a lazy
string; let's drop the check.

1 files changed, 0 insertions, 2 deletions

diff --git a/lib.c b/lib.c
index 0ab7085b..506905af 100644
--- a/lib.c
+++ b/lib.c
@@ -7636,7 +7636,6 @@ val lazy_str_force(val lstr)
 val lazy_str_put(val lstr, val stream)
 {
   val lim, term, iter;
-  type_check(lstr, LSTR);
   lim = lstr->ls.props->limit;
   term = lstr->ls.props->term;
 
@@ -10924,7 +10923,6 @@ static void out_lazy_str(val lstr, val out)
   val lim, term, iter;
   const wchar_t *wcterm;
 
-  type_check(lstr, LSTR);
   lim = lstr->ls.props->limit;
   term = lstr->ls.props->term;
   wcterm = c_str(term);