From: Guillermo J. Rozas Date: Sat, 25 Aug 1990 03:08:22 +0000 (+0000) Subject: Fix edti bug from last set of changes. X-Git-Tag: 20090517-FFI~11229 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4970d397e0615179402e919d585ed0368eef5f57;p=mit-scheme.git Fix edti bug from last set of changes. --- diff --git a/v7/src/runtime/conpar.scm b/v7/src/runtime/conpar.scm index 6f811794e..ff9eb51f9 100644 --- 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 700a2380e..d2a8517e7 100644 --- 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)