diff options
Diffstat (limited to 'guile')
| -rw-r--r-- | guile/starlet/base.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm index 60665eb..0681da8 100644 --- a/guile/starlet/base.scm +++ b/guile/starlet/base.scm @@ -220,11 +220,10 @@ (round-dmx (/ (* 256 val) 100))) (define (msb val) - (round-dmx (/ val 256))) + (round-dmx (euclidean-quotient val 256))) (define (lsb val) - (round-dmx (logand (inexact->exact (round val)) - #b11111111))) + (round-dmx (euclidean-remainder val 256))) (define (state-for-each func state) |