Added stub

This commit is contained in:
Justin Ethier 2016-01-21 22:58:25 -05:00
parent c8bffc8301
commit a0ef515b4e

16
scheme/inexact.sld Normal file
View file

@ -0,0 +1,16 @@
(define-library (scheme inexact)
(export
sin
)
(begin
(define-c sin
"(void *data, int argc, closure _, object k, object z)"
" make_double(d, 0.0);
Cyc_check_num(data, z);
if (type_of(z) == integer_tag) {
d.value = sin(((integer_type *)z)->value);
} else {
d.value = sin(((double_type *)z)->value);
}
return_closcall1(data, k, &d); ")
))