From 719cbaec2f61e224586cb0c7df32dd6e66ae5bb7 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 17 Apr 2017 16:59:53 +0000 Subject: [PATCH] Inline log and sin --- scheme/inexact.sld | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/scheme/inexact.sld b/scheme/inexact.sld index 09aba276..fca6a93d 100644 --- a/scheme/inexact.sld +++ b/scheme/inexact.sld @@ -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);")