Lines Matching defs:bx
46 (*bx x (exptbx #z2 (fixnum->bignum by)))))
51 (/bx x (exptbx #z2 (fixnum->bignum by)))))
62 (+bx n
65 (-bx (bit-lshbx #z1
69 (+bx n
74 (exact? (=bx n (bit-lshbx cut shift))))
75 (if (<=bx cut max-container)
79 (define (rounded-/bx x y)
81 ((down) (/bx x y))
82 ((up) (+bx (/bx x y) #z1))
83 ((round) (let ((tmp (/bx (*bx #z2 x) y)))
85 (/bx tmp #z2)
86 (+bx (/bx tmp #z2) #z1))))))
106 (if (>bx (/bx (*bx #z2 two^e) ten^i) max-container)
112 (v (rounded-/bx two^e ten^i))
115 (loop (+fx i 1) (*bx ten^i #z10) two^e e))
132 (loop (+fx i 1) (*bx n #z10) e))))
