From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 9 Nov 1992 21:02:34 +0000 (+0000)
Subject: Fix two bugs in SAVE-EDITOR-FILES.
X-Git-Tag: 20090517-FFI~8787
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9fd9cb7ebe7e77564dbe1f30e7e20c84688b549c;p=mit-scheme.git

Fix two bugs in SAVE-EDITOR-FILES.
---

diff --git a/v7/src/edwin/debuge.scm b/v7/src/edwin/debuge.scm
index 356003873..31a2c3b7c 100644
--- a/v7/src/edwin/debuge.scm
+++ b/v7/src/edwin/debuge.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: debuge.scm,v 1.46 1992/11/09 20:45:33 cph Exp $
+;;;	$Id: debuge.scm,v 1.47 1992/11/09 21:02:34 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -54,21 +54,21 @@
   (if (and (buffer-modified? buffer)
 	   (buffer-writeable? buffer))
       (let ((pathname
-	     (merge-pathnames
-	      (let ((pathname (buffer-pathname buffer)))
-		(cond ((not pathname)
-		       (and (y-or-n? "Save buffer "
-				     (buffer-name buffer)
-				     " (Y or N)? ")
-			    ((access prompt-for-expression
-				     system-global-environment)
-			     "Filename")))
-		      ((integer? (pathname-version pathname))
-		       (pathname-new-version pathname 'NEWEST))
-		      (else
-		       pathname))))))
+	     (let ((pathname (buffer-pathname buffer)))
+	       (cond ((not pathname)
+		      (and (y-or-n? "Save buffer "
+				    (buffer-name buffer)
+				    " (Y or N)? ")
+			   ((access prompt-for-expression
+				    system-global-environment)
+			    "Filename")))
+		     ((integer? (pathname-version pathname))
+		      (pathname-new-version pathname 'NEWEST))
+		     (else
+		      pathname)))))
 	(if pathname
-	    (let ((filename (->namestring pathname)))
+	    (let* ((pathname (merge-pathnames pathname))
+		   (filename (->namestring pathname)))
 	      (if (or (not (file-exists? pathname))
 		      (y-or-n? "File '"
 			       filename