From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 11 Jul 1995 23:19:30 +0000 (+0000)
Subject: Change interface with OS/TRIM-PATHNAME-STRING to pass that procedure a
X-Git-Tag: 20090517-FFI~6184
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9f6a60891f033b4b4639a9681f134d7003455228;p=mit-scheme.git

Change interface with OS/TRIM-PATHNAME-STRING to pass that procedure a
second argument, which is the prefix string that is to be trimmed off.
---

diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm
index 513cd8984..3d54f4d23 100644
--- a/v7/src/edwin/filcom.scm
+++ b/v7/src/edwin/filcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: filcom.scm,v 1.185 1995/07/11 23:09:20 cph Exp $
+;;;	$Id: filcom.scm,v 1.186 1995/07/11 23:19:30 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-95 Massachusetts Institute of Technology
 ;;;
@@ -631,11 +631,11 @@ If a file with the new name already exists, confirmation is requested first."
 
 (define (prompt-for-pathname* prompt directory
 			      verify-final-value? require-match?)
-  (let ((directory
-	 (if directory
-	     (directory-pathname directory)
-	     (buffer-default-directory (current-buffer))))
-	(insertion (os/pathname->display-string directory)))
+  (let* ((directory
+	  (if directory
+	      (directory-pathname directory)
+	      (buffer-default-directory (current-buffer))))
+	 (insertion (os/pathname->display-string directory)))
     (prompt-string->pathname
      (prompt-for-completed-string
       prompt