From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 6 Nov 1991 22:34:16 +0000 (+0000)
Subject: Change FIND-FILE-NOSELECT to do PATHNAME-SIMPLIFY.
X-Git-Tag: 20090517-FFI~10068
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7f51c380502dc02c52bf5bbba5f26ead64bbc293;p=mit-scheme.git

Change FIND-FILE-NOSELECT to do PATHNAME-SIMPLIFY.
---

diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm
index 472290aaf..48c83e4c9 100644
--- a/v7/src/edwin/filcom.scm
+++ b/v7/src/edwin/filcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/filcom.scm,v 1.163 1991/11/06 21:56:05 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/filcom.scm,v 1.164 1991/11/06 22:34:16 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -56,7 +56,7 @@
   (select-buffer-other-screen (find-file-noselect filename true)))
 
 (define (find-file-noselect filename warn?)
-  (let ((pathname (merge-pathnames filename)))
+  (let ((pathname (pathname-simplify (merge-pathnames filename))))
     (if (file-directory? pathname)
 	(if (ref-variable find-file-run-dired)
 	    (make-dired-buffer (pathname-as-directory pathname))