From a88e51f58e96d91f652bd3e7a60c6a4bcaecb708 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 3 Jun 2009 18:48:13 +0000 Subject: [PATCH] fix bad uses of quotient in wxme svn: r15067 original commit: dcc088305be09be13c97845f315197c4e4920ae6 --- collects/mred/private/wxme/editor-canvas.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/mred/private/wxme/editor-canvas.ss b/collects/mred/private/wxme/editor-canvas.ss index 479337ac..d45f3a5c 100644 --- a/collects/mred/private/wxme/editor-canvas.ss +++ b/collects/mred/private/wxme/editor-canvas.ss @@ -676,11 +676,11 @@ [(or (and (eq? bias 'start) (fw . > . iw)) (and (fw . < . iw) (localx . < . x)) (and (fw . > . iw) (not (eq? bias 'end)) (localx . < . x))) - (quotient localx hpixels-per-scroll)] + (->long (/ localx hpixels-per-scroll))] [(or (and (eq? bias 'end) (fw . > . iw)) (and (fw . < . iw) ((+ x iw) . < . (+ localx fw))) (and (fw . > . iw) (not (eq? bias 'start)) ((+ localx fw) . > . (+ x iw)))) - (+ (quotient (+ localx (- fw iw)) hpixels-per-scroll) 1)] + (+ (->long (/ (+ localx (- fw iw)) hpixels-per-scroll)) 1)] [else cx]) 0) cx)]) @@ -773,7 +773,7 @@ (if (modulo tw hpixels-per-scroll) (+ tw (- hpixels-per-scroll (modulo tw hpixels-per-scroll))) tw)]) - (values (quotient tw hpixels-per-scroll) + (values (->long (/ tw hpixels-per-scroll)) given-h-scrolls-per-page))) (values 0 1))])