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 (define-c c-log
"(void *data, int argc, closure _, object k, object z)" "(void *data, int argc, closure _, object k, object z)"
" return_inexact_double_op(data, k, log, z);" " return_inexact_double_op(data, k, log, z);"
;; TODO: this inline form is not stable yet "(void *data, object ptr, object z)"
;"(void *data, object ptr, object z)" " return_inexact_double_op_no_cps(data, ptr, log, z);"
;" return_inexact_double_op_no_cps(data, ptr, log, z);"
) )
(define-c sin (define-c sin
"(void *data, int argc, closure _, object k, object z)" "(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 (define-c sqrt
"(void *data, int argc, closure _, object k, object z)" "(void *data, int argc, closure _, object k, object z)"
" return_inexact_double_op(data, k, sqrt, z);") " return_inexact_double_op(data, k, sqrt, z);")