#!r6rs
(library (rsc3 supercollider quantize)
(export quantize)
(import (rnrs)
	(only (rsc3 math exact) round-exact))

;; Quantize `n' to the nearest multiple of `quanta'.

(define (quantize quanta n)
  (* (round-exact (/ n quanta)) quanta))

)