Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-11 14:57:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added stub

Browse source
This commit is contained in:
Justin Ethier 2016-01-21 22:58:25 -05:00
parent c8bffc8301
commit a0ef515b4e
1 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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); ")
))