From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 8 Aug 1989 01:26:05 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: 20090517-FFI~11870
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5557883f6ea4bec0f01944390ba79d2ea9b77890;p=mit-scheme.git

*** empty log message ***
---

diff --git a/v7/src/runtime/conpar.scm b/v7/src/runtime/conpar.scm
index aa2665713..e5297d535 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.7 1989/03/29 02:45:15 jinx Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/conpar.scm,v 14.8 1989/08/08 01:26:05 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -306,7 +306,8 @@ MIT in each case. |#
       (if frame-size
 	  (1+ frame-size)
 	  (stack-address->index (element-stream/ref stream 1) offset)))))
-(define (verify paranoia-index stream offset)
+
+(define (verify paranoia-index stream offset)
   (or (zero? paranoia-index)
       (stream-null? stream)
       (let* ((type (return-address->stack-frame-type
diff --git a/v8/src/runtime/conpar.scm b/v8/src/runtime/conpar.scm
index 1ad21b208..497feeb52 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.7 1989/03/29 02:45:15 jinx Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/conpar.scm,v 14.8 1989/08/08 01:26:05 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -306,7 +306,8 @@ MIT in each case. |#
       (if frame-size
 	  (1+ frame-size)
 	  (stack-address->index (element-stream/ref stream 1) offset)))))
-(define (verify paranoia-index stream offset)
+
+(define (verify paranoia-index stream offset)
   (or (zero? paranoia-index)
       (stream-null? stream)
       (let* ((type (return-address->stack-frame-type