From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 19 Oct 1991 07:09:54 +0000 (+0000)
Subject: Fix bug that caused Dired to print all of the "to be deleted" file
X-Git-Tag: 20090517-FFI~10139
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=52f1c33d81693b879160ef8900b9234e3bc233d3;p=mit-scheme.git

Fix bug that caused Dired to print all of the "to be deleted" file
names on a single line, sending the newlines to the wrong port.
---

diff --git a/v7/src/edwin/strpad.scm b/v7/src/edwin/strpad.scm
index 256bedac9..94555b9c3 100644
--- a/v7/src/edwin/strpad.scm
+++ b/v7/src/edwin/strpad.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/strpad.scm,v 1.5 1991/05/17 23:42:30 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/strpad.scm,v 1.6 1991/10/19 07:09:54 cph Exp $
 ;;;
 ;;;	Copyright (c) 1985, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -72,7 +72,7 @@
 	   (if (default-object? x-size) (output-port/x-size port) x-size)))
       (let ((n-per-line (max 1 (quotient (+ x-size 1) (+ 2 n)))))
 	(do ((strings strings (cdr strings))
-	     (i 1 (if (< i n-per-line) (+ i 1) (begin (newline) 1))))
+	     (i 1 (if (< i n-per-line) (+ i 1) (begin (newline port) 1))))
 	    ((null? strings) unspecific)
 	  (if (> i 1) (write-string "  " port))
 	  (write-string (pad-on-right-to (car strings) n) port))))))
\ No newline at end of file