6 lines
107 B
Scheme
6 lines
107 B
Scheme
|
(define-module (aux math)
|
||
|
#:export (floor-exact))
|
||
|
|
||
|
(define (floor-exact n)
|
||
|
(floor (inexact->exact n)))
|