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 256bedac96ef832c87481af5e3879358e9fe99d0..94555b9c323dd09dbb599c27c2b6253677806221 100644 (file)
--- 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