Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-08 21:47:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Inline log and sin

Browse source
This commit is contained in:
Justin Ethier 2017-04-17 16:59:53 +00:00
parent 396888f1b8
commit 719cbaec2f
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
scheme/inexact.sld
View file

@ -69,13 +69,14 @@
(define-c c-log
"(void *data, int argc, closure _, object k, object z)"
" return_inexact_double_op(data, k, log, z);"
;; TODO: this inline form is not stable yet
;"(void *data, object ptr, object z)"
;" return_inexact_double_op_no_cps(data, ptr, log, z);"
"(void *data, object ptr, object z)"
" return_inexact_double_op_no_cps(data, ptr, log, z);"
)
(define-c sin
"(void *data, int argc, closure _, object k, object z)"
" return_inexact_double_op(data, k, sin, z);")
" return_inexact_double_op(data, k, sin, z);"
"(void *data, object ptr, object z)"
" return_inexact_double_op_no_cps(data, ptr, sin, z);")
(define-c sqrt
"(void *data, int argc, closure _, object k, object z)"
" return_inexact_double_op(data, k, sqrt, z);")