From: Joe Marshall <eval.apply@gmail.com>
Date: Wed, 11 Aug 2010 16:45:10 +0000 (-0700)
Subject: Add declarations to silence warnings.
X-Git-Tag: 20101212-Gtk~105
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=67d5b70bd975ca2d8b9ccdd960c9bb109037f784;p=mit-scheme.git

Add declarations to silence warnings.
---

diff --git a/src/edwin/win32.scm b/src/edwin/win32.scm
index 1e2769571..9222c81dd 100644
--- a/src/edwin/win32.scm
+++ b/src/edwin/win32.scm
@@ -174,17 +174,25 @@ USA.
   window type				; ignored
   (set-screen-redisplay-title?! screen #t))
 
+;; (define (win32-screen/scroll-lines-down! screen xl xu yl yu amount)
+;;   (and #f
+;;        (win32-screen-vertical-scroll! (screen->handle screen)
+;; 				      xl xu yl yu (fix:+ yl amount))))
+
 (define (win32-screen/scroll-lines-down! screen xl xu yl yu amount)
-  (and #f
-       (win32-screen-vertical-scroll! (screen->handle screen)
-				      xl xu yl yu (fix:+ yl amount))))
+  (declare (ignore screen xl xu yl yu amount))
+  #f)
+
+;; (define (win32-screen/scroll-lines-up! screen xl xu yl yu amount)
+;;   (and #f
+;;        (win32-screen-vertical-scroll! (screen->handle screen)
+;; 				      xl xu amount yu 0)
+;;        (win32-screen-vertical-scroll! (screen->handle screen)
+;; 				      xl xu yl yu (fix:- yl amount))))
 
 (define (win32-screen/scroll-lines-up! screen xl xu yl yu amount)
-  (and #f
-       (win32-screen-vertical-scroll! (screen->handle screen)
-				      xl xu amount yu 0)
-       (win32-screen-vertical-scroll! (screen->handle screen)
-				      xl xu yl yu (fix:- yl amount))))
+  (declare (ignore screen xl xu yl yu amount))
+  #f)
 
 (define (win32-screen/flush! screen)
   ;; Win32 API call causes any pending painting to be done