From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 4 Oct 1996 19:30:23 +0000 (+0000)
Subject: Fix bug: interface to OS/BUFFER-BACKUP-PATHNAME was changed and
X-Git-Tag: 20090517-FFI~5373
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9e9d7735ffe4b00a8a75f24b2dcb52bdb586204c;p=mit-scheme.git

Fix bug: interface to OS/BUFFER-BACKUP-PATHNAME was changed and
reference in this file was missed.
---

diff --git a/v7/src/6001/floppy.scm b/v7/src/6001/floppy.scm
index 0bae8e20f..862f2f8b2 100644
--- a/v7/src/6001/floppy.scm
+++ b/v7/src/6001/floppy.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: floppy.scm,v 1.17 1995/04/15 06:11:22 cph Exp $
+$Id: floppy.scm,v 1.18 1996/10/04 19:30:23 cph Exp $
 
-Copyright (c) 1992-95 Massachusetts Institute of Technology
+Copyright (c) 1992-96 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -1012,10 +1012,10 @@ The following filenames are reserved and may not be used:
 
 (set! os/buffer-backup-pathname
       (let ((usual os/buffer-backup-pathname))
-	(lambda (truename)
+	(lambda (truename buffer)
 	  (if (student-directory? truename)
 	      (values (pathname-new-type truename "bak") '())
-	      (usual truename)))))
+	      (usual truename buffer)))))
 
 ;;; These next two depend on the fact that they are only invoked when
 ;;; the current buffer is the Dired buffer that is being tested.