From 67d5b70bd975ca2d8b9ccdd960c9bb109037f784 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Wed, 11 Aug 2010 09:45:10 -0700 Subject: [PATCH] Add declarations to silence warnings. --- src/edwin/win32.scm | 24 ++++++++++++++++-------- 1 file changed, 16 insertions(+), 8 deletions(-) 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 -- 2.25.1