11 lines
349 B
Scheme
11 lines
349 B
Scheme
#lang scheme/base
|
|
(require '#%unsafe
|
|
'#%flfxnum)
|
|
|
|
(provide (all-from-out '#%unsafe)
|
|
(prefix-out unsafe-
|
|
(combine-out flsin flcos fltan
|
|
flasin flacos flatan
|
|
fltruncate flround flfloor flceiling
|
|
flexp fllog)))
|