Add declarations to silence warnings.

diff --git a/src/edwin/win32.scm b/src/edwin/win32.scm
index 1e2769571f1c9ba066992b7d57dd09385de9dac7..9222c81dd0b90aa0d11c41005a263651718065f1 100644 (file)
--- 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