streams: bugfix in string input seek error diagnostic.

* stream.c (string_in_seek): Update the value of len
with the calculated value so that the out-of-bounds
seek diagnostic diagnostic shows the string length
rather than nil.

1 files changed, 1 insertions, 1 deletions

diff --git a/stream.c b/stream.c
index 0ae38153..e58ead71 100644
--- a/stream.c
+++ b/stream.c
@@ -2092,7 +2092,7 @@ static val string_in_seek(val stream, val off, enum strm_whence whence)
               lit("~a: ~s: negative position ~s disallowed"),
               self, stream, pos, nao);
 
-  if (gt(pos, len ? len : length_str(s->string)))
+  if (gt(pos, len ? len : (len = length_str(s->string))))
     uw_throwf(file_error_s,
               lit("~a: ~s: position ~s lies beyond string length ~s"),
               self, stream, pos, len, nao);