From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 10 Jul 2015 17:25:30 +0000 (+0000)
Subject: Fix botched ()/#F split in continuation parser.
X-Git-Tag: mit-scheme-pucked-9.2.12~376^2~79
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=883926076398a3f2cd8b7954e77ada53080c0dbf;p=mit-scheme.git

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 505264ab1..ed600080c 100644
--- 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