Fix edti bug from last set of changes.

diff --git a/v7/src/runtime/conpar.scm b/v7/src/runtime/conpar.scm
index 6f811794e61313b2678bb4c1acbca53cf4db6ccc..ff9eb51f93464d38ca03866860908d347d0948b6 100644 (file)
--- a/v7/src/runtime/conpar.scm
+++ b/v7/src/runtime/conpar.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/conpar.scm,v 14.17 1990/08/21 04:18:26 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/conpar.scm,v 14.18 1990/08/25 03:08:22 jinx Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -336,9 +336,10 @@ MIT in each case. |#
             (ltail (stream-tail* stream length)))
        (and ltail
             (return-address? (element-stream/head ltail))
-            (loop (-1+ paranoia-index)
-                  ltail
-                  (+ offset length))))))
+            (verify (-1+ paranoia-index)
+                    ltail
+                    (+ offset length))))))
+
 (define (stream-tail* stream n)
   (cond ((or (zero? n) (stream-null? stream))
         stream)

diff --git a/v8/src/runtime/conpar.scm b/v8/src/runtime/conpar.scm
index 700a2380ec22d79713ba336d898559ef07e8f429..d2a8517e79db2f363cfc30072fd426f40295806b 100644 (file)
--- a/v8/src/runtime/conpar.scm
+++ b/v8/src/runtime/conpar.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/conpar.scm,v 14.17 1990/08/21 04:18:26 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/conpar.scm,v 14.18 1990/08/25 03:08:22 jinx Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -336,9 +336,10 @@ MIT in each case. |#
             (ltail (stream-tail* stream length)))
        (and ltail
             (return-address? (element-stream/head ltail))
-            (loop (-1+ paranoia-index)
-                  ltail
-                  (+ offset length))))))
+            (verify (-1+ paranoia-index)
+                    ltail
+                    (+ offset length))))))
+
 (define (stream-tail* stream n)
   (cond ((or (zero? n) (stream-null? stream))
         stream)