; fix something annoying
(define old-round round)
(define (round x . args)
(if (null? args) (old-round x)
(let* ((ten (expt 10 (car args))))
(/ (old-round (* x ten)) ten))))
(display (round 123.4567)) (newline)
(display (round 123.4567 2)) (newline)
(display (round 12345.67 -2)) (newline)
(display (round -123.4567 2)) (newline)