long-suffix: fix crash reproducing on Cygwin.

* stream.c (long_suffix): Remove stray wcspbrk(dot, psc) call from the
body of loop, which sometimes occurs when dot is null. It may have been
optimized away, so I didn't notice.

1 files changed, 1 insertions, 3 deletions

diff --git a/stream.c b/stream.c
index 89870eb3..1c965c8c 100644
--- a/stream.c
+++ b/stream.c
@@ -5060,10 +5060,8 @@ val long_suffix(val name, val alt_in)
   {
     const wchar_t *sl;
 
-    while (dot && (sl = wcspbrk(dot, psc)) && sl[1]) {
+    while (dot && (sl = wcspbrk(dot, psc)) && sl[1])
       dot = wcschr(sl + 1, '.');
-      sl = wcspbrk(dot, psc);
-    }
 
     if (!dot || (sl && sl[1])) {
       return default_null_arg(alt_in);