Lines Matching refs:fl1
102 (define (flmax fl1 . args)
103 (let ((flargs (cons fl1 args)))
107 (define (flmin fl1 . args)
108 (let ((flargs (cons fl1 args)))
120 (define (fl- fl1 . args)
121 (let ((flargs (cons fl1 args)))
125 (define (fl/ fl1 . args)
126 (let ((flargs (cons fl1 args)))
132 (define (fldiv-and-mod fl1 fl2)
133 (assert-iflonum fl1 fl2)
134 (div-and-mod fl1 fl2))
136 (define (fldiv fl1 fl2)
137 (assert-iflonum fl1 fl2)
138 (div fl1 fl2))
140 (define (flmod fl1 fl2)
141 (assert-iflonum fl1 fl2)
142 (mod fl1 fl2))
144 (define (fldiv0-and-mod0 fl1 fl2)
145 (assert-iflonum fl1 fl2)
146 (div0-and-mod0 fl1 fl2))
148 (define (fldiv0 fl1 fl2)
149 (assert-iflonum fl1 fl2)
150 (div0 fl1 fl2))
152 (define (flmod0 fl1 fl2)
153 (assert-iflonum fl1 fl2)
154 (mod0 fl1 fl2))
188 (define (flexpt fl1 fl2) (assert-flonum fl1 fl2) (ensure-flonum (expt fl1 fl2)))