From 299baf7e7205201fe12063b8e6faee5ae6431aa7 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 5 Aug 1988 21:14:19 +0000
Subject: [PATCH] Change call to `pp' to match change in runtime system.

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

diff --git a/v7/src/cref/toplev.scm b/v7/src/cref/toplev.scm
index b2b446403..8f76f5684 100644
--- a/v7/src/cref/toplev.scm
+++ b/v7/src/cref/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/cref/toplev.scm,v 1.1 1988/06/13 12:38:33 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/cref/toplev.scm,v 1.2 1988/08/05 21:14:19 cph Rel $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -74,7 +74,7 @@ MIT in each case. |#
 	(newline)
 	(write-string ";;; program to make package structure")
 	(for-each (lambda (expression)
-		    (pp expression 'AS-CODE))
+		    (pp expression (current-output-port) true))
 		  constructor)))))
 
 (define (write-loader pathname pmodel)
@@ -85,7 +85,7 @@ MIT in each case. |#
 	(newline)
 	(write-string ";;; program to load package contents")
 	(for-each (lambda (expression)
-		    (pp expression 'AS-CODE))
+		    (pp expression (current-output-port) true))
 		  loader)))))
 
 (define (write-cref pathname pmodel)
-- 
2.25.1