Fix botched ()/#F split in continuation parser.

No more `The object (), passed as an argument to stream-car, is not a
pair.' when trying to debug SIGFPE!

diff --git a/src/runtime/conpar.scm b/src/runtime/conpar.scm
index 505264ab111361fe30a7461780bf61080d129fa8..ed600080c3c28c62f149bde6be73b5805641e5dc 100644 (file)
--- a/src/runtime/conpar.scm
+++ b/src/runtime/conpar.scm
@@ -672,7 +672,7 @@ USA.
                    length
                    (length stream offset))))
             (ltail (stream-tail* stream length)))
-       (and ltail
+       (and (stream-pair? ltail)
             (return-address? (stream-car ltail))
             (verify (- paranoia-index 1)
                     ltail