*** empty log message ***

diff --git a/v7/src/runtime/conpar.scm b/v7/src/runtime/conpar.scm
index aa2665713e0a8e216000c69d0f8c4b222a5f4cdd..e5297d535cf97b8acd9e57fc91f2e65e7b526c68 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.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)))))
-\f(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 1ad21b208a74e0d1e932a6d43d912933f8c422ce..497feeb528beddb2c2e64b49a5f5993ec7e55235 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.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)))))
-\f(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