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

fixed quotient on non-integer

Browse Source 
original commit: a50482571e1d9ce54aa4c6a7bc07c908a87f1ae4
This commit is contained in:
Matthew Flatt 2003-07-22 14:32:14 +00:00
parent ba98db9421
commit a63feb2e2a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mrlib/private/aligned-pasteboard/alignment.ss
View File

@ -111,11 +111,11 @@
(cond
[(empty? sizes) (values 0 0)]
[else
(let ([extra/rect (quotient extra count)]
(let ([extra/rect (quotient (floor extra) count)]
[onsize (first sizes)])
(if (> onsize extra/rect)
(loop (rest sizes) (- extra onsize) (sub1 count))
(values extra/rect (modulo extra count))))])))
(values extra/rect (modulo (floor extra) count))))])))
;; allocate-evenly/position ((cons/p nonnegative? nonnegative?) positive? (listof abs-rect?) . -> .
;; (listof abs->rect?))