From 52f1c33d81693b879160ef8900b9234e3bc233d3 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 19 Oct 1991 07:09:54 +0000 Subject: [PATCH] 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. --- v7/src/edwin/strpad.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.25.1