From 416b1dcca3c824989cebbb26f1021865d6115f88 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 14 Jun 1988 10:29:46 +0000 Subject: [PATCH] Adjust formatting of package filenames. --- v7/src/cref/forpkg.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/v7/src/cref/forpkg.scm b/v7/src/cref/forpkg.scm index bd33be680..3dde229df 100644 --- a/v7/src/cref/forpkg.scm +++ b/v7/src/cref/forpkg.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/cref/forpkg.scm,v 1.1 1988/06/13 12:38:22 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/cref/forpkg.scm,v 1.2 1988/06/14 10:29:46 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -173,10 +173,9 @@ MIT in each case. |# (begin (newline) (write-label "Files") - (newline) (for-each (lambda (pathname) (write-string indentation) - (write-string (pathname->string pathname)) + (write (pathname->string pathname)) (newline)) (package/files package))))) -- 2.25.1