From 9f6a60891f033b4b4639a9681f134d7003455228 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 11 Jul 1995 23:19:30 +0000
Subject: [PATCH] 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.

---
 v7/src/edwin/filcom.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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
-- 
2.25.1