From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 1 Apr 1991 06:14:27 +0000 (+0000)
Subject: Fix bug that caused dired buffer of "/" to have the name "*random*".
X-Git-Tag: 20090517-FFI~10798
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=894962e59e31d34f72be629a198b7f9fd29d1e7f;p=mit-scheme.git

Fix bug that caused dired buffer of "/" to have the name "*random*".
---

diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm
index 6f7ac10f4..e25f9ea16 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.146 1991/03/22 00:21:51 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/filcom.scm,v 1.147 1991/04/01 06:14:27 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -357,7 +357,9 @@ Leaves point at the beginning, mark at the end."
 	       (let ((directory (pathname-directory pathname)))
 		 (and (pair? directory)
 		      (car (last-pair directory))))))
-	  (if (string? name) name "*random*")))))
+	  (if (string? name)
+	      name
+	      (pathname->string pathname))))))
 
 (define (pathname->buffer pathname)
   (or (list-search-positive (buffer-list)