From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 9 May 2007 01:56:48 +0000 (+0000)
Subject: Forgot to change calls to FORMAT-PACKAGES and FORMAT-PACKAGES-UNUSUAL.
X-Git-Tag: 20090517-FFI~577
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=25afb2ee46d362eb458b99c2598d5a67030622f4;p=mit-scheme.git

Forgot to change calls to FORMAT-PACKAGES and FORMAT-PACKAGES-UNUSUAL.
---

diff --git a/v7/src/cref/toplev.scm b/v7/src/cref/toplev.scm
index 7d6b6a81d..9e0580893 100644
--- a/v7/src/cref/toplev.scm
+++ b/v7/src/cref/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: toplev.scm,v 1.28 2007/05/09 01:55:47 cph Exp $
+$Id: toplev.scm,v 1.29 2007/05/09 01:56:48 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -101,9 +101,9 @@ USA.
     (if (or changes?
 	    (file-modification-time<? cref-pathname
 				      (pathname-default-type pathname "pkg")))
-	(with-output-to-file cref-pathname
-	  (lambda ()
-	    (format-packages pmodel))))))
+	(call-with-output-file cref-pathname
+	  (lambda (port)
+	    (format-packages pmodel port))))))
 
 (define (write-cref-unusual pathname pmodel changes? os-type)
   (let ((cref-pathname
@@ -111,6 +111,6 @@ USA.
     (if (or changes?
 	    (file-modification-time<? cref-pathname
 				      (pathname-default-type pathname "pkg")))
-	(with-output-to-file cref-pathname
-	  (lambda ()
-	    (format-packages-unusual pmodel))))))
\ No newline at end of file
+	(call-with-output-file cref-pathname
+	  (lambda (port)
+	    (format-packages-unusual pmodel port))))))
\ No newline at end of file