From c265ae82fd9fb15c8087901555871a3da1c762a9 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 5 Oct 1990 13:32:48 +0000
Subject: [PATCH] Eliminate compiler warning.

---
 v7/src/edwin/modwin.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/v7/src/edwin/modwin.scm b/v7/src/edwin/modwin.scm
index 35f7fc879..3750ffcee 100644
--- a/v7/src/edwin/modwin.scm
+++ b/v7/src/edwin/modwin.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/modwin.scm,v 1.33 1990/10/03 04:55:45 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/modwin.scm,v 1.34 1990/10/05 13:32:48 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989, 1990 Massachusetts Institute of Technology
 ;;;
@@ -74,4 +74,5 @@
   true)
 
 (define-method modeline-window (:event! window type)
+  type					;ignored
   (setup-redisplay-flags! redisplay-flags))
\ No newline at end of file
-- 
2.25.1