From 527b549598241243ba6a910b5557212d9a597952 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 23 Oct 1998 05:51:46 +0000
Subject: [PATCH] Fix formatting.

---
 v7/src/edwin/dosfile.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/dosfile.scm b/v7/src/edwin/dosfile.scm
index cb3335881..8d72cbb38 100644
--- a/v7/src/edwin/dosfile.scm
+++ b/v7/src/edwin/dosfile.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dosfile.scm,v 1.20 1998/10/23 05:44:06 cph Exp $
+;;;	$Id: dosfile.scm,v 1.21 1998/10/23 05:51:46 cph Exp $
 ;;;
 ;;;	Copyright (c) 1994-98 Massachusetts Institute of Technology
 ;;;
@@ -525,8 +525,7 @@ Switches may be concatenated, e.g. `-lt' is equivalent to `-l -t'."
 			 (->namestring pathname))
 		    (let loop ((types types))
 		      (and (not (null? types))
-			   (let ((p
-				  (pathname-new-type pathname (car types))))
+			   (let ((p (pathname-new-type pathname (car types))))
 			     (if (file-exists? p)
 				 (->namestring p)
 				 (loop (cdr types)))))))))))
-- 
2.25.1