From 4970d397e0615179402e919d585ed0368eef5f57 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sat, 25 Aug 1990 03:08:22 +0000 Subject: [PATCH] Fix edti bug from last set of changes. --- v7/src/runtime/conpar.scm | 9 +++++---- v8/src/runtime/conpar.scm | 9 +++++---- 2 files changed, 10 insertions(+), 8 deletions(-) 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) -- 2.25.1