New global variable, *pp-avoid-circularity?*, which

can be fluid-letted, has been created.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 50d2d17cb0f4532c2a966293a9825c67b8a58295..ae1c6ac30edeeef0e1e3388b954821eb63f23320 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.117 1991/08/22 15:43:39 arthur Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.118 1991/08/29 21:14:53 sybok Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -1473,6 +1473,7 @@ MIT in each case. |#
          *pp-primitives-by-name*
          *pp-save-vertical-space?*
          *pp-uninterned-symbols-by-name*
+         *pp-avoid-circularity?*
          make-pretty-printer-highlight
          pp
          pretty-print)

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 103a5af2c405c25cecb42487103f26d4b0860284..3a4f9d84088921bb236496e24e257b479109c94f 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.117 1991/08/22 15:43:39 arthur Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.118 1991/08/29 21:14:53 sybok Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -1473,6 +1473,7 @@ MIT in each case. |#
          *pp-primitives-by-name*
          *pp-save-vertical-space?*
          *pp-uninterned-symbols-by-name*
+         *pp-avoid-circularity?*
          make-pretty-printer-highlight
          pp
          pretty-print)