Lines Matching defs:round
56 (define (round-n-cut n e nb-bits)
58 (define (round n)
59 (case *round*
63 ;; with the -1 it will only round up if the cut off part is
68 ((round)
73 (cut (bit-rshbx (round n) shift))
77 (round-n-cut n (+fx e 1) nb-bits))))
80 (case *round*
83 ((round) (let ((tmp (/bx (*bx #z2 x) y)))
126 (round-n-cut n e nb-bits)
231 (define *round* #f)
247 (("--round" ?direction (help "Round bignums (down, round or up)"))
248 (set! *round* (string->symbol direction)))
268 (when (not (memv *round* '(up down round)))
270 "Missing round-method"
271 *round*))
