From 9e9d7735ffe4b00a8a75f24b2dcb52bdb586204c Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 4 Oct 1996 19:30:23 +0000 Subject: [PATCH] Fix bug: interface to OS/BUFFER-BACKUP-PATHNAME was changed and reference in this file was missed. --- v7/src/6001/floppy.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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. -- 2.25.1