suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix bad uses of quotient in wxme

Browse Source 
svn: r15067
This commit is contained in:
Matthew Flatt 2009-06-03 18:48:13 +00:00
parent 435d9b1bca
commit dcc088305b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mred/private/wxme/editor-canvas.ss
View File

@ -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))])