mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-11 06:47:37 +02:00
Added stub
This commit is contained in:
parent
c8bffc8301
commit
a0ef515b4e
1 changed files with 16 additions and 0 deletions
16
scheme/inexact.sld
Normal file
16
scheme/inexact.sld
Normal 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); ")
|
||||
))
|
Loading…
Add table
Reference in a new issue