Eliminate compiler warning.

diff --git a/v7/src/edwin/modwin.scm b/v7/src/edwin/modwin.scm
index 35f7fc87956117a972bf2e94948216950f1f8ff3..3750ffcee583e78d3af072c2282cfe575bf53cbb 100644 (file)
--- 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