Eliminate unused parameter to DIFF-BUFFER.

diff --git a/v7/src/edwin/diff.scm b/v7/src/edwin/diff.scm
index 68208e072da73a382cd130c34a372554bf0e740c..f3f5dd0660d0b4eafce3988096c9b76826b8f2f2 100644 (file)
--- a/v7/src/edwin/diff.scm
+++ b/v7/src/edwin/diff.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: diff.scm,v 1.3 2008/09/02 21:31:59 riastradh Exp $
+$Id: diff.scm,v 1.4 2008/09/02 22:46:04 riastradh Exp $
 
 This code is written by Taylor R. Campbell and placed in the Public
 Domain.  All warranties are disclaimed.
@@ -55,7 +55,7 @@ Domain.  All warranties are disclaimed.
            (pathname (buffer-pathname buffer)))
       (if (not (and pathname (file-exists? pathname)))
           (editor-error "Buffer has no associated file."))
-      (diff-buffer buffer pathname
+      (diff-buffer buffer
                    (lambda (temporary-pathname)
                      ;; PATHNAME is the buffer's usual storage on the
                      ;; disk; TEMPORARY-PATHNAME contains the buffer's
@@ -71,14 +71,14 @@ Domain.  All warranties are disclaimed.
            (auto-save (os/auto-save-pathname pathname buffer)))
       (if (not (file-exists? auto-save))
           (editor-error "Buffer has no auto-save file."))
-      (diff-buffer buffer pathname
+      (diff-buffer buffer
                    (lambda (temporary-pathname)
                      ;; PATHNAME is irrelevant; TEMPORARY-PATHNAME
                      ;; contains the buffer's current contents; and
                      ;; AUTO-SAVE contains the auto-saved contents.
                      (diff-to-buffer temporary-pathname auto-save))))))
 \f
-(define (diff-buffer buffer pathname receiver)
+(define (diff-buffer buffer receiver)
   (select-buffer
    (call-with-temporary-file-pathname
      (lambda (temporary-pathname)