From: Taylor R. Campbell <net/mumble/campbell>
Date: Tue, 2 Sep 2008 22:46:04 +0000 (+0000)
Subject: Eliminate unused parameter to DIFF-BUFFER.
X-Git-Tag: 20090517-FFI~188
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a41ea133fbb283916b92a4b8155b5eca820514b5;p=mit-scheme.git

Eliminate unused parameter to DIFF-BUFFER.
---

diff --git a/v7/src/edwin/diff.scm b/v7/src/edwin/diff.scm
index 68208e072..f3f5dd066 100644
--- 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))))))
 
-(define (diff-buffer buffer pathname receiver)
+(define (diff-buffer buffer receiver)
   (select-buffer
    (call-with-temporary-file-pathname
      (lambda (temporary-pathname)