From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 5 Aug 1988 21:14:19 +0000 (+0000)
Subject: Change call to `pp' to match change in runtime system.
X-Git-Tag: 20090517-FFI~12629
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=299baf7e7205201fe12063b8e6faee5ae6431aa7;p=mit-scheme.git

Change call to `pp' to match change in runtime system.
---

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)