mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-23 20:15:05 +02:00
9 lines
201 B
Scheme
9 lines
201 B
Scheme
(define-library (scheme inexact)
|
|
(export
|
|
sin
|
|
)
|
|
(begin
|
|
(define-c sin
|
|
"(void *data, int argc, closure _, object k, object z)"
|
|
" return_inexact_double_op(data, k, sin, z);")
|
|
))
|