From 550eb24d4670886e0051c310f9a74447483ce197 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 19 Aug 1994 06:08:32 +0000
Subject: [PATCH] Change default for PP to be AS-CODE.

---
 v7/src/runtime/pp.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/v7/src/runtime/pp.scm b/v7/src/runtime/pp.scm
index 5eb59b4d8..d205f3d93 100644
--- a/v7/src/runtime/pp.scm
+++ b/v7/src/runtime/pp.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: pp.scm,v 14.28 1993/08/12 06:01:50 cph Exp $
+$Id: pp.scm,v 14.29 1994/08/19 06:08:32 cph Exp $
 
-Copyright (c) 1988-93 Massachusetts Institute of Technology
+Copyright (c) 1988-94 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -65,7 +65,7 @@ MIT in each case. |#
 (define *pp-lists-as-tables?* true)
 (define *pp-forced-x-size* false)
 (define *pp-avoid-circularity?* false)
-(define *pp-default-as-code?* 'IF-SCODE)
+(define *pp-default-as-code?* #t)
 
 (define (pp object #!optional port . rest)
   (let ((port (if (default-object? port) (current-output-port) port)))
-- 
2.25.1