From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Wed, 6 Nov 1991 19:56:45 +0000 (+0000)
Subject: Fix minor breakage made in Info that happened when pathname changes
X-Git-Tag: 20090517-FFI~10070
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3c477d664083e34b78093923ab4797869459f3f1;p=mit-scheme.git

Fix minor breakage made in Info that happened when pathname changes
were made.
---

diff --git a/v7/src/edwin/info.scm b/v7/src/edwin/info.scm
index 627de6996..f857e418a 100644
--- a/v7/src/edwin/info.scm
+++ b/v7/src/edwin/info.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/info.scm,v 1.108 1991/11/04 20:51:14 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/info.scm,v 1.109 1991/11/06 19:56:45 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -671,7 +671,7 @@ The name may be an abbreviation of the reference name."
 		       (ref-variable info-current-node)
 		       (mark-index (current-point))))
       ;; Switch files if necessary.
-      (if (and pathname (equal? pathname (ref-variable info-current-file)))
+      (if (and pathname (not (equal? pathname (ref-variable info-current-file))))
 	  (begin
 	    (read-buffer buffer pathname true)
 	    (if (not (eq? (buffer-major-mode buffer) (ref-mode-object info)))