From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 27 Mar 2000 18:01:54 +0000 (+0000)
Subject: Optimize VC-WORKFILE-MODIFIED? to avoid running diff if possible.
X-Git-Tag: 20090517-FFI~4144
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f4c1125aad2913addabb8990077c3f382820ac82;p=mit-scheme.git

Optimize VC-WORKFILE-MODIFIED? to avoid running diff if possible.
---

diff --git a/v7/src/edwin/vc.scm b/v7/src/edwin/vc.scm
index f46450896..82dd0f3d4 100644
--- a/v7/src/edwin/vc.scm
+++ b/v7/src/edwin/vc.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: vc.scm,v 1.42 2000/03/27 17:54:08 cph Exp $
+;;; $Id: vc.scm,v 1.43 2000/03/27 18:01:54 cph Exp $
 ;;;
 ;;; Copyright (c) 1994-2000 Massachusetts Institute of Technology
 ;;;
@@ -1802,12 +1802,11 @@ the value of vc-log-mode-hook."
 		       (vc-master-workfile master)
     (lambda (tm tw)
       tm
-      (or (and tw
-	       (let ((tokens (find-cvs-entry master)))
-		 (and tokens
-		      (string=? (file-time->global-ctime-string tw)
-				(caddr tokens)))))
-	  (vc-backend-diff master #f #f #t)))))
+      (let ((tokens (find-cvs-entry master)))
+	(if (and tw tokens
+		 (string=? (file-time->global-ctime-string tw) (caddr tokens)))
+	    #f
+	    (vc-backend-diff master #f #f #t))))))
 
 (define (vc-save-workfile-buffer workfile)
   (let ((buffer (pathname->buffer workfile)))